Bu kodun açıklaması nedir ?

[SAGULNET]

Zahmet olmazsa aşağıdaki kodun sırasıyla ne yaptığını anlatabilirmisiniz ?

Sub AAAA()
If Dir([V1] & "\" & [V2] & "12" & ".KAP") <> "" Then
Dir ([V1] & "\" & [V2] & "24" & ".KAP")
Exit Sub
End If
Open [V1] & "\" & [V2] & "6" & ".KAP" For Output As #1

For a = 1 To [AH65000].End(1).Row
Print #1, Cells(a, 35)
Next a
Close #1


End Sub

Benim tam olarak aradığım şu:

Aradığım şey tam olarak şu :

BH1:BH1000 aralığındaki veriyi altalta BH1001 hücresine yazdığım dosya yoluna BH1002 hücresine yazdığım isim ile ;

1- TXT olarak kaydetsin.
2- Eğer aynısı varsa uyarı versin Bu dosyadan zaten var. Dosyanız dosyaadı1 olarak kaydedildi., tamam tuşuna bastığımda dosyaadı1 olarak kaydetsin

Yada daha iyi bir algoritma ile farklı birşeyde olabilir.

Kamulaştırma plan işlerinde malik dosyası kaydetmede kullanacağım. Acil ihtiyacım var

Şimdiden çok teşekkür ediyorum.