yardım veri aktarma

[saglik66]

sorunuma yardımcı olan arkadaşlara şimdiden teşekkür ediyorum....

1. SAYFANIN A7 G18 2 SAYFANIN A28 D6 3, SAYFANIN A8 DEKİ VERİLERİ BEN İSTEDİKTEN SONRA BUTON YARDIMIYLA AT DEDİĞİM ZAMAN 4. SAYFANIN SIRAYLA A1 A2 A3 A4 A5 SATIRLARINA DAHA SONRAKİ HER AT DEDİĞİMDE Bİ ALTINA YANİ B1 B2 B3 B4 B5 HER SEFERİNDE Bİ ALTINA NASIL ATABİLİRİM YARDIM BEKLİYORUM TEŞEKKÜRLER.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub AKTAR()
Sheets("Sayfa4").Select
sonsat = Cells(65536, "A").End(xlUp).Row + 1
If Sheets("Sayfa1").Range("A7").Value = "" Then
    MsgBox "AKTARMA YAPILMADI..!!" & vbLf & _
    "Sayfa1 deki A7 hücresi boş olamaz..!!", vbCritical, Application.UserName
    Exit Sub
End If
Range("A" & sonsat).Value = Sheets("Sayfa1").Range("A7").Value
Range("B" & sonsat).Value = Sheets("Sayfa1").Range("G18").Value
Range("C" & sonsat).Value = Sheets("Sayfa2").Range("A28").Value
Range("D" & sonsat).Value = Sheets("Sayfa2").Range("D6").Value
Range("E" & sonsat).Value = Sheets("Sayfa3").Range("A8").Value
MsgBox "AKTARMA İŞLEMİ BAŞARI İLE TA MAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[saglik66]

çok teşekkür ederim Allah razı olsun...

 

[Orion1]

çok teşekkür ederim Allah razı olsun...

Rica ederim.
İyi çalışmalar.

 

[saglik66]

bi soru daha

orion2 ekteki dosyaya göre yardım pls...teşekkürler..

 

[Orion1]

orion2 ekteki dosyaya göre yardım pls...teşekkürler..

Bu sorunuzun cevabını aşaığıda açmış olduğunuz topic'e cevapladım.
http://www.excel.web.tr/showthread.php?goto=newpost&t=35086