burdan bi arkadaş yardımcı olmuştu ve bir kod yazmıştı ama biraz eksiği var ve o arkadaş çevrimdışı yardım bekliyorum
Sub kaydet()
yol = ThisWorkbook.Path
dosya = yol & "\" & Cells(1, "d") & ".txt"
Open dosya For Output As #1
For a = 1 To [a65536].End(3).Row
veri = Cells(a, "a") & " " & Cells(a, "b") & " " & Cells(a, "c")
Print #1, veri
Next
Close #1
MsgBox "tamam"
End Sub
o arkadaşın yazdığı kod evet çalıştığı yere txt dosyası atıyor ama ben hdd de 150 civarı resim var örnek D:\aaa\a1.tif resmi örneğin a1 sütununa resmin ismini girdiğimde b sütununa adet yazdığımda yukardaki gibi resmin adresini almak istiyorum adet 30 ise alt alta 30 adet aynı adres sonra başka bi resim girdiğim de örnek 50 adet yazdığımda onun devamına 50 adet o resmin adresi şeklinde biraz uzun yazdım yardımlarınızı bekliyorum
Sub kaydet()
yol = ThisWorkbook.Path
dosya = yol & "\" & Cells(1, "d") & ".txt"
Open dosya For Output As #1
For a = 1 To [a65536].End(3).Row
veri = Cells(a, "a") & " " & Cells(a, "b") & " " & Cells(a, "c")
Print #1, veri
Next
Close #1
MsgBox "tamam"
End Sub
o arkadaşın yazdığı kod evet çalıştığı yere txt dosyası atıyor ama ben hdd de 150 civarı resim var örnek D:\aaa\a1.tif resmi örneğin a1 sütununa resmin ismini girdiğimde b sütununa adet yazdığımda yukardaki gibi resmin adresini almak istiyorum adet 30 ise alt alta 30 adet aynı adres sonra başka bi resim girdiğim de örnek 50 adet yazdığımda onun devamına 50 adet o resmin adresi şeklinde biraz uzun yazdım yardımlarınızı bekliyorum