DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[SIZE="2"]Sub Emre()
Dim i As Integer
For i = 1 To Range("a65536").End(3).Row
Range("J" & i & ":O" & i).ClearContents
If IsEmpty(Cells(i, "G")) Then
Range("A" & i & ":F" & i).Copy Range("J65536").End(3)(2, 1)
End If
Next i: i = Empty
End Sub[/SIZE]
Başka bir yol ile yardımcı olmaya çalıştım.
Umarım işinize yarar.
İyi çalışmalar...
Bir önceki mesajımda eklemiş olduğum dosyaları değil bu mesajımdaki dosyaları dikkate alırsanız sevinirim.