Aktar Makrosu (Üçlü Kritere Göre Alt Alta Aktarmak)

[1Al2Ver]

Merhaba,

Ek'li dosyada ;

Fatura sayfasında "ÇIKIŞ'a AKTAR" butonu tıklandığında;

Fatura Sayfası G1(Tarih), C2 (Adı) ve D2 (Fatura No) hücrelerine göre, "Malz.Çıkışı" sayfasında, boş olan satırdan itibaren, Fatura Sayfası'ndaki bilgilerin, sayfadaki çizelgeye, her defasında alt alta aktarılmasını arzuluyorum,

Not ; Fatura sayfasındaki fatura bilgileri, her defasında yenilenmektedir,

Gerekli makroyu rica ediyorum,

Teşekkür ederim.

 

[fedeal]

Sub n()
Set s1 = Sheets("fatura")
Set s2 = Sheets("Malz.Çıkışı")
For i = 10 To s1.[A65536].End(3).Row
f = s2.[A65536].End(3).Row + 1
s2.Cells(f, 1).Value = s1.Cells(1, "g").Value
s2.Cells(f, 2).Value = s1.Cells(2, "d").Value
s2.Cells(f, 3).Value = s1.Cells(2, "c").Value
For s = 2 To 7
s2.Cells(f, s + 2).Value = s1.Cells(i, s).Value
Next
Next
End Sub

iyi çalışmalar.

 

[1Al2Ver]

iyi çalışmalar.

Sayın fedeal merhaba,

Çözüm için teşekkür ederim, elinize sağlık, sayenizde büyük bir uğraştan kurtuldum,

Saygılarımla.

 

[fedeal]

Sayın fedeal merhaba,

Çözüm için teşekkür ederim, elinize sağlık, sayenizde büyük bir uğraştan kurtuldum,

Saygılarımla.

işinize yardığına sevindim,saygılar.