Aktarma Makrosunda Değişiklik

[1Al2Ver]

Merhaba,

Sub Makro1()
Sonsatır = [E65536].End(3).Row
Range("C2:E" & Sonsatır).SpecialCells(xlCellTypeVisible).Copy Sheets(5).[A65536].End(3).Offset(1)
MsgBox ("Veriler Sayfa5'e Aktarıldı")
End Sub

Kod bu haliyle C2:E aralığını her tıklamada Sayfa5'te alt alta sıralıyor
Yapmak istediğim sayfadaki C2:E aralığı yerine C2, G1 ve G45 hücrelerini aktarmak,

Teşekkür ederim.

 

[Recep İpek]

Her defasından sadece C2 , G1 ve G45 hücrelerini mi aktaracak?

Ayrıca bunları Sayfa5'e yan yana olarak alt alta mı kopyalayacak?

 

[1Al2Ver]

Her defasından sadece C2 , G1 ve G45 hücrelerini mi aktaracak?

Ayrıca bunları Sayfa5'e yan yana olarak alt alta mı kopyalayacak?

Sayın Recep İpek merhaba,

Evet her defasında sadece C2 , G1 ve G45 hücrelerini aktaracak,

Bunları ( C2, G1 ve G45 ) sayfa5'te yanyana ve her yeni aktarma ile ilk aktarılanın bir satır altına aktaracak,

Örneklersek;

Sayfa3'teki C2, G1 ve G45 hücreleri ;

1 nci aktarma ile sayfa5'te sırasıyla C2,D2 ve G2'ye,

2 nci aktarma ile sayfa5'te sırasıyla C3,D3 ve G3'e, aktarılmalı

Not ;

1) C2 hücresi metin, G1 hücresi tarih içermektedir, G45 hücresi değerini G42:G44'ün toplamından almaktadır, hücredeki formül =Topla (G42:G44) şeklindedir.

2) Sayfa3 ün adı "fatura", sayfa5'in adı ise "icmal" dir.

İlginiz için teşekkür ederim.

 

[1Al2Ver]

Merhabalar,

Makro'daki düzeltmeyi veya yeni makroyu rica ediyorum,

Teşekkür ederim.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz?

Sub aktar()
Set s1 = Sheets("fatura")
Set s2 = Sheets("icmal")
 
sat = s2.[a65536].End(3).Row + 1
s2.Cells(sat, "a").Value = sat - 1
s2.Cells(sat, "c").Value = s1.Range("c2").Value
s2.Cells(sat, "d").Value = s1.Range("g1").Value
s2.Cells(sat, "g").Value = s1.Range("g45").Value
MsgBox ("Veriler Sayfa5'e Aktarıldı")
s1.Range("a2").Select

Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[1Al2Ver]

Aşağıdaki kodları deneyiniz?

Sub aktar()
Set s1 = Sheets("fatura")
Set s2 = Sheets("icmal")
 
sat = s2.[a65536].End(3).Row + 1
s2.Cells(sat, "a").Value = sat - 1
s2.Cells(sat, "c").Value = s1.Range("c2").Value
s2.Cells(sat, "d").Value = s1.Range("g1").Value
s2.Cells(sat, "g").Value = s1.Range("g45").Value
MsgBox ("Veriler Sayfa5'e Aktarıldı")
s1.Range("a2").Select

Set s1 = Nothing
Set s2 = Nothing
End Sub

Sayın Recepİpek merhaba,

Çözümün yanında bir de dosya eklemişsiniz, elinize sağlık,

Çözüm ve ilginiz için teşekkür ederim, dosya eklemediğim için mahçup oldum doğrusu, umarım sizi yormamışımdır,

Saygılarımla.

 

[Recep İpek]

Önemli değil.