Veri aktarma

[zırzır]

Arkadaşlar,bir excel sayfasındaki (A4 ve A5 satırlarındaki)sayı dizisini(A4 ,"Fider" sayfasına A5 "154" sayfasına tek buton ile yollayabilirmiyim.Yardımlarınıza şimdiden teşekkürlerler.

 

[N.Ziya Hiçdurmaz]

Yanıt

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

 

[musak64]

dosyaniz ektedir. buyrun.

 

[zırzır]

Sayın, V.Basic For Applications ve sayın,musak64 her ikinizinde kotları çalışıyor,gösterdiğiniz duyarlılıktan dolayı ikinizede teşekkür ederim.

 

[zırzır]

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.

 

[N.Ziya Hiçdurmaz]

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

 

[zırzır]

Sayın V.Basic For Applications,kod çalışıyor hızına ve ilgine teşekkür ederim.