Çözüldü Makro ile Sayfalar Arası Kopyalama Yapma
Çözüm
Aşağıdaki kodu deneyin
VBA:
You must log in to view content
(12 satır)
mtecimer
Normal Üye
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
Normal Üye
Bu dosyayi incelemenizi rica ederim, burada birazdaha detaylandirdim durumu.
İkinci sayfayı arşiv olarak mı kullanacaksınız? Her butondan sonra arşive yedekleme yapılıp birinci sayfadaki tablo silinecek mi?
mtecimer
Normal Üye
Evet arşiv yapmak istiyorum
Doğrudur 1.sayfa da silme işlemini buton 1 de tanımlamıştım
Silme işlemini ayrı buton ile mi yapacaksınız?
mtecimer
Normal Üye
Başka fonksiyonlar da var siz sadece arşiv işleminde yardımcı olmanız yeterli
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.
Kodun en altındaki satırda tek tırnağı kaldırırsanız silme işlemini de yapar.
VBA:
You must log in to view content
(17 satır)
Çözüm
mtecimer
Normal Üye
Ü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ü ?
Satır numarası verdiği gibi her satıra tarih ve fatura numarası mı yazsın?
Ö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")
dty.Range("K" & i) = ft.Range("J5")
dty.Range("L" & i) = ft.Range("J6")
mtecimer
Normal Üye
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
Normal Üye
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
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
Normal Üye
Tesekkürler
Kod:
You must log in to view content
(31 satır)Hocam bu kodu basa ekledigimde hata aliyoru bakabilirmisiniz ?
mtecimer
Normal Üye
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.
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.
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:
You must log in to view content
(5 satır)- Durum
