Sub test()
Set S1 = Sheets("AS")
Set S2 = Sheets("FİDER")
Set S3 = Sheets("154")
S2.Range("A2:F2") = S1.Range("A4:F4").Value
S3.Range("A2:F2") = S1.Range("A5:F5").Value
End Sub
Arkadaşlar,yukarıdaki kopyalama işleminde "Tarih" bölümünü atlamışız.Örneğin 01.01.2007 tarihinde eğer kopyalanacak sayfalarada bu tarihi yazarsam kopyalama olsun,02.01.2007 de alt satıra kopyalasın.Örnek ektedir.
Bu kodu bir butona bağlayınız.
Sub test()
Set s1 = Sheets("AS")
Set s2 = Sheets("FİDER")
Set s3 = Sheets("154")
s2.[b1:g50].Clear
s3.[b1:g50].Clear
For bak1 = 1 To 20
If s2.Range("A" & bak1) = s1.Range("B1") Then
s2.Select
s2.Range("A" & bak1).Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 6)) = s1.Range("A4:F4").Value
End If
Next
For bak2 = 1 To 20
If s3.Range("A" & bak2) = s1.Range("B1") Then
s3.Select
s3.Range("A" & bak2).Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 6)) = s1.Range("A4:F4").Value
End If
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.