MAKRO ILE FOR-NEXT

[rdeniro]

IYI AKSAMLAR!

BENIM YAPMAK ISTEDIGIM EKTE GONDERDIGIM DOSYADA, B1 SUTUNUNDAN BASLAYARAK A1 DEN A60 'A KADAR OLAN DEGERLERI B SUTUNUNA YAZMAK. ANCAK A SUTUNUNDAKI DEGER SIFIRSA BU DEGERI ATLAYARAK ALLTAKI SIFIR OLMAYAN RAKAMLARI B SUTUNUNA YAZMAK. BU ISLEMLERI MAKRO ICINDE FOR-NEXT ILE YAPARSANIZ COK SEVINIRIM.

BEN SONUC OLARAK CIKACAK RAKAMLARI ORNEK OLSUN DIYE E SUTUNUNA YAZDIM.

SIMDIDEN COK TESEKKUR EDERIM.

SAYGILARIMLA,

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:02657e3973]Sub listele()
For a = 1 To [a65536].End(3).Row
If Cells(a, "a") <> 0 Then
c = c + 1
Cells(c, "b") = Cells(a, "a")
End If
Next
End Sub
[/vb:1:02657e3973]

 

[rdeniro]

SAYIN LEVENTM!

ÇOK TEÞEKKÜR EDERİM.

SAYGILARIMLA,