DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub BUYUK()
[COLOR=red]sil = Cells(65536, 6).End(xlUp).Row[/COLOR]
[COLOR=red]Range("F2:H" & sil) = ""[/COLOR]
son = Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Cells(i, 3) > 0 Then
c = c + 1
Cells(c + 1, 6) = Cells(i, 1)
Cells(c + 1, 7) = Cells(i, 2)
Cells(c + 1, 8) = Cells(i, 3)
End If
Next
End Sub