Sayfalar arası veri taşıma

[ferhatgurbuz]

ekteki dosyada gerekli açıklamaları yaptım. ilgilenen arkadaşlara teşekkürler

 

[feraset045]

eki görebilirmiyiz

 

[ferhatgurbuz]

Kusura Bakmayin Dosyayi Şİmdİ Ekledİm

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları herhangi bir modul sayfasına kopyalayınız ve dosyada bahsettiğiniz butona atayınız.

Sub Aktarma()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("ANA SAYFA")
y = 9
For Each Hucre In shD.Range("AZ11:AZ30")
   If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
      shA.Cells(y, 2) = shD.Cells(Hucre.Row, 2)
      shA.Cells(y, 3) = shD.Cells(Hucre.Row, 3)
      shA.Cells(y, 4) = shD.Cells(Hucre.Row, 4)
      shA.Cells(y, 5) = shD.Cells(Hucre.Row, Hucre.Column)
      y = y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub

 

[ferhatgurbuz]

Arkadaşım hata verdi.Tekrar bir bakabilirmisiniz

 

[Ferhat Pazarçevirdi]

(1) Ne hatası verdi?
(2) Nerede hata verdi?
(3) Naparken hata verdi?
?????

 

[ferhatgurbuz]

arkadaşım kusura bakma sayfadan kodu kopyalarken End Sub___ yani çizgiyide kopyalamış onu silince düzeldi

 

[ferhatgurbuz]

bu arada teşekkür etmeyi unuttum. Ellerine sağlık. kolay gelsin