Makro ile Sayfalar Arası Kopyalama Yapma

mtecimer · 11 Ara 2022

Merhaba,
Benim talebim Macro ile hazirladigim tabloda ki verileri ek bir sayfada kayitli tutmak.
Ekte dosyayi paylasiyorum, umarim aciklayici olmustur.

okutkan · 11 Ara 2022

Aşağıdaki kodu deneyin

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

mtecimer · 15 Ara 2022

okutkan' Alıntı:
Aşağıdaki kodu deneyin

VBA:

İndirmek için giriş yapmanız gerekmektedir. (12 satır)

Hocam ilgiliniz icin tesekkürler fakat yapmak istedigimi tam izah edemedim sanirim.
ekte size bir dosya daha paylastim icerisine aciklama yaptim insallah anlasilir olmustur.

mtecimer · 15 Ara 2022

okutkan' Alıntı:
Aşağıdaki kodu deneyin

VBA:

İndirmek için giriş yapmanız gerekmektedir. (12 satır)

Bu dosyayi incelemenizi rica ederim, burada birazdaha detaylandirdim durumu.

okutkan · 15 Ara 2022

İkinci sayfayı arşiv olarak mı kullanacaksınız? Her butondan sonra arşive yedekleme yapılıp birinci sayfadaki tablo silinecek mi?

mtecimer · 15 Ara 2022

okutkan' Alıntı:
İkinci sayfayı arşiv olarak mı kullanacaksınız? Her butondan sonra arşive yedekleme yapılıp birinci sayfadaki tablo silinecek mi?

Evet arşiv yapmak istiyorum
Doğrudur 1.sayfa da silme işlemini buton 1 de tanımlamıştım

okutkan · 15 Ara 2022

Silme işlemini ayrı buton ile mi yapacaksınız?

mtecimer · 15 Ara 2022

okutkan' Alıntı:
Silme işlemini ayrı buton ile mi yapacaksınız?

Başka fonksiyonlar da var siz sadece arşiv işleminde yardımcı olmanız yeterli

okutkan · 15 Ara 2022

Orjinal dosyada Detay sayfasında a sütununa tıklayıp bir adet sütun ekleyin. Yüklediğim dosyada ben ekledim.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(17 satır)

mtecimer · 16 Ara 2022

okutkan' Alıntı:
Orjinal dosyada Detay sayfasında a sütununa tıklayıp bir adet sütun ekleyin. Yüklediğim dosyada ben ekledim.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (17 satır)

Üstad eline saglik gayet güzel calisiyor fakat L32 de yazdigim (Eger mümkünse Fatura tarihi ve numrasini da Detay sayfasina ilgili islemin karsina getirmesi) bu islemi detay sayfasina aktarmiyor. Acaba bunu da aktarmamiz mümkün mü ?

okutkan · 16 Ara 2022

Satır numarası verdiği gibi her satıra tarih ve fatura numarası mı yazsın?

okutkan · 16 Ara 2022

Önceki mesajımdaki işlemi yapmak istiyorsanız; For next döngüsünün arasına aşağıdaki kod satırlarını yapıştırıp deneyin.
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")

mtecimer · 16 Ara 2022

okutkan' Alıntı:
Önceki mesajımdaki işlemi yapmak istiyorsanız; For next döngüsünün arasına aşağıdaki kod satırlarını yapıştırıp deneyin.
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")

Hocam elinize saglik mükemmel oldu

Nacizane tavsiye, Önceden cay/kahve ismarla butonu vardi keske bu devam etse, size bir kahve ismarlamak isterdim. Emeginiz cok büyük benim icin.

mtecimer · 16 Ara 2022

mtecimer' Alıntı:
Bu dosyayi incelemenizi rica ederim, burada birazdaha detaylandirdim durumu.

Hocam bir husus dikkatimi cekti Fatura sayfasinda 50.satir ve sonrasi hep sabit kalacak, silinme ve yukariya dogru tasima olmayacak. Size zahmet buna da bir bakabilirmisiniz

Ömer BARAN · 16 Ara 2022

@mtecimer

Mevcut kodun en sonundaki END SUB satırının üstündeki
aralik.Delete shift:=xlUp kısmını aralik.ClearContents olarak değiştirince istediğinizin olması lazım.
Belgeye değil, önceki cevaplarda kullanılan kodlara baktım.

okutkan · 16 Ara 2022

mtecimer' Alıntı:
Hocam elinize saglik mükemmel oldu

Nacizane tavsiye, Önceden cay/kahve ismarla butonu vardi keske bu devam etse, size bir kahve ismarlamak isterdim. Emeginiz cok büyük benim icin.

Sağolun, Düşünmeniz yeterli.
Silme işleminde Ömer abinin verdiği yöntem işinize yaramış olması lazım, başka şekilde silme işlemi istiyorsanız yazarsınız.

mtecimer · 16 Ara 2022

Ömer BARAN' Alıntı:
@mtecimer

Mevcut kodun en sonundaki END SUB satırının üstündeki
aralik.Delete shift:=xlUp kısmını aralik.ClearContents olarak değiştirince istediğinizin olması lazım.
Belgeye değil, önceki cevaplarda kullanılan kodlara baktım.

Tesekkürler

okutkan' Alıntı:
Sağolun, Düşünmeniz yeterli.
Silme işleminde Ömer abinin verdiği yöntem işinize yaramış olması lazım, başka şekilde silme işlemi istiyorsanız yazarsınız.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(31 satır)

Hocam bu kodu basa ekledigimde hata aliyoru bakabilirmisiniz ?

okutkan · 16 Ara 2022

Hata hangi satırda? Birde dosya yükleyin.

mtecimer · 16 Ara 2022

okutkan' Alıntı:
Hata hangi satırda? Birde dosya yükleyin.

Hocam hata benden kaynakli onu cözdüm, ama sizden bir ricam daha olacak butona bastigimda fatura numrasini otomatik 1 sayi artirabilirmiyiz?
Format bu sekilde 2022-01 sonraki fatura no 2022-02 diye devam edecek.

okutkan · 16 Ara 2022

End sub dan önce aşağıdaki kodları ekleyin.
J6 Hücresinde, metin ve ayirici isimli değişkenlerdeki veriler bulunması lazım. Hücrede bulunmayan bir değer üzerinde değişiklik yapamaz.
Ayirici değişkenindeki nokta yerine tire (-) karakterini veya başka bir karakteri yazabilirsiniz. Eğer böyle bir değişiklik yaparsanız, kodu çalıştırmadan önce J6 hücresindeki veriyi "Test 2022-22" olarak değiştirin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

	Makro ile Verileri Sayfalara Ayırma selis 22 Haz 2021 Makro Soruları
	Makro ile Sayfalar Arası Veri Taşıma İşlemi merakli 16 Kas 2021 Makro Soruları
	makro ile sayfalar arası topla çarpım abdullahss 17 Ağu 2022 Makro Soruları
	Makro İle Sayfalar Arası Veri Taşımak Ömer BARAN 23 Ocak 2022 Makro Soruları
	Sayfalardan Makro ile Otomotik İcmal Alma yagizasker 22 May 2021 Makro Soruları