Makro güncelleme

[igultekin2000]

iyi günler; rapor sayfasında oluşan formülle gelen değerleri (sürekli güncelleniyor) makro ile başka sayfaya değer olarak alıyorum. rapor sayfasında boş satırlar olduğu zaman boş satırları almamasını istiyorum, ekteki makroda nasıl bir düzeltme yapmam gerekiyor.

Sub raporSon()
Sheets("rapor").Range("A2:G5").copy
sat = Sheets("raporSon").Cells(65536, "A").End(xlUp).Row + 1
Sheets("raporSon").Range("A" & sat).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub raporSon()
For a =[COLOR="Red"] 2 [/COLOR]To [COLOR="Blue"]5[/COLOR] 'A[COLOR="red"]2[/COLOR]:G[COLOR="blue"]5[/COLOR]
    If Sheets("rapor").Cells(a, "A") <> "" Then
        sat = Sheets("raporSon").Cells(65536, "A").End(xlUp).Row + 1
        Sheets("raporSon").Range("A" & sat & ":G" & sat).Value = Sheets("rapor").Range("A" & a & ":G" & a).Value
    End If
Next
MsgBox "Kopyalama Yapıldı..!!"
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub raporSon()
For a =[COLOR="Red"] 2 [/COLOR]To [COLOR="Blue"]5[/COLOR] 'A[COLOR="red"]2[/COLOR]:G[COLOR="blue"]5[/COLOR]
    If Sheets("rapor").Cells(a, "A") <> "" Then
        sat = Sheets("raporSon").Cells(65536, "A").End(xlUp).Row + 1
        Sheets("raporSon").Range("A" & sat & ":G" & sat).Value = Sheets("rapor").Range("A" & a & ":G" & a).Value
    End If
Next
MsgBox "Kopyalama Yapıldı..!!"
End Sub

teşekkürler,sorunsuz çalışıyor