TEK DÜĞMEYLE İLİGİLİ SATIRA KOPYA

[mekemaloglu]

Merhaba Arkadaşlar;

Ekte sunduğum dosyayı incelerseniz memnun olurum. Becerebildiğim kadarıyla makrolarla yaptım, ancak düğme sayısı çok fazla bu düğmeler nasıl teke indirebilirim. Durum şu; Günlük tahakkukun en alt toplamını (Genel Toplamını) Aylık tahakkuktaki o günkü tarihli satırına atacak. Bu işlemi tek düğmeyle nasıl çözebilirim.

Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanın.

[vb:1:c9b4389a39]Sub aktar()
On Error Resume Next
Set s1 = Sheets("GÜNLÜK TAHAKK.BORDR.")
Set s2 = Sheets("AYLIK TAHAKKUK BORDR.")
sat = s2.[b1:b65536].Find(Date).Row
s2.Range("e" & sat & ":ag" & sat) = s1.[e186:ag186].Value
End Sub[/vb:1:c9b4389a39]


Notosyanızda cevap vermeyi zorlaştıran parolalı sayfa korumaları mevcuttur. Lütfen dosya eklerken bu tür korumaları kaldırmaya dikkat edelim.

 

[mekemaloglu]

Sayın Leventım ;

Verdiğiniz bilgiler iin teşekkürler. Anca bu kodu düğmeye nasıl balayacağımı bilemiyorum. Açıklayıcı bir şekilde yazarsanız memnun olurum. Saygılar.

 

[Metin Karaağaç]

düğmeye sağ tıklayıp makro ata diyeceksiniz.

 

[mekemaloglu]

Teşekkürler durum anlaşldı
Yalnız koruma yaptığımda temizle butono çalışmıyor bunu nasıl çözebilirim

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=94165#94165