Veri aktarma

Katılım
8 Temmuz 2006
Mesajlar
322
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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
 
Katılım
8 Temmuz 2006
Mesajlar
322
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.
 
Katılım
8 Temmuz 2006
Mesajlar
322
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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
 
Katılım
8 Temmuz 2006
Mesajlar
322
Sayın V.Basic For Applications,kod çalışıyor hızına ve ilgine teşekkür ederim.
 
Üst