verileri not defterine aktarma

[farukuz]

daha önce sn. zeki gürsoy sorumu yanıtlamıştı ancak şöyle bir ihtiyacım oluştu. belirli satırlardaki verileri, belirli gruplar halinde (yirmişer) not defterine aktarmayla ilgili bir çalışma söz konusu. ancak verilerin alınacağı satırlardaki veriler bir başka sayfadan "eboşsa boş bırak varsa getir" şeklinde formule sahip. bu yüzden de formül olduğu için hücre boş da olsa ,sanırım formül var diye, not defteri oluşturmakta. ihtiyacım formülü olan ancak herhangi bir veri olmayan hücreler için not defteri oluşturmaması yönünde? yardımcı olursanız sevinirim.

ekte örnek çalışma yer almakta.. metin belgelerini masaüstüne klasöre oluşturuyor.

 

[nsertoglu]

İlk for döngüsü içine if koyun deneyin; olursa diğerlerinde işleme devam...

For Z = 1 To Sheets("LİSTE").[d65536].End(3).Row

If Cells(Z, "d").Value <> Empty Then ' hücre değerinin BOŞ OLMAMASINI DENETLEYİN

' sizin parcanın başı
Open f & "\Yok_" & s & ".txt" For Append As #1
Print #1, Trim(Sheets("LİSTE").Cells(Z, "d"))
Close #1

If (Z Mod 36) = 0 Then s = s + 1
' sizin parcanın sonu

End If ' BUNU DA YAZIN MUTLAKA

Next

 

[farukuz]

alttaki gibi yazdım dediklerinizi ama.. d sütununda 4 dosya oluşturuyordu 3 e düştü.. ayrıca diğerlerine uyarladığımda herhangi bir işlem yapmadı..

----

For Z = 1 To Sheets("LİSTE").[d65536].End(3).Row

If Cells(Z, "d").Value <> Empty Then

Open f & "\Yok_" & s & ".txt" For Append As #1
Print #1, Trim(Sheets("LİSTE").Cells(Z, "d"))
Close #1

If (Z Mod 36) = 0 Then s = s + 1

End If

Next