makro ile sıra sıra kopyalatmak

[jakal]

merhaba arkadaşlar sizlerin sayesinde hiç anlamadımğım excelde baya yol aldım hepinize teşekkürler formda çok arama yaptım bu konuyla ilgili ama tam istediğim gibi yapamadım ekte gönderdiğim bordroda bir düğme ile alt atlta olan sayıları yan yana kopyalatmak anlaşılır olması için ekteki dosyada açıklma yaptım yardımlarınız için çok teşekkürler.

 

[bedersu]

Sayın jakal,
BOD sayfasındaki AE13 ile AE20 arasındaki 8 adet veri matrah sayfasındaki F2 ile R2 arasına mı taşınacak? NAsıl olacak biraz daha açıklar mısınız?Çünkü elde 8 adet veri var ama 12 tane hedef hücre var.

 

[jakal]

sayın bedersu;
evet bahsettiğiniz gibi bod sayfasıda düğmeye tıkladığımızda mesela ilk tıklamamda ocak ayına 8 adet veriyi kayıt yapması 2 tıklamamda yine 8 adet veriyi şubat ayına 3 tıklmamda 8 adet veriyi mart ayına şeklinde kayıt yapması şeklinde mümkünmü?

 

[bnknnbyz]

Merhaba jakal

sanırım ekteki dosya işini görür

 

[bnknnbyz]

dosya eke gelmemiş bir daha gönderiyorum

 

[bedersu]

Sayın jakal,
Aşağıdaki kodları da dener misiniz?

Sub aktar()
Sheets("BOD").Range("AE13:AE20").Copy
Sheets("matrah").Activate
For Each hcr In Range("F4:R4")
If hcr.Column > 17 Then GoTo bitti:
If hcr = "" Then GoTo son:
Next
son:
hcr.Select
ActiveSheet.Paste
bitti:
 MsgBox "Kayıt Sonu!!!", vbInformation
End Sub

 

[jakal]

sayın bedersu;
emeğinize sağlık teşekkür ederim.

 

[jakal]

sayın bnknnbyz;
teşekkürler emeğinize sağlık.güzel olmuş.