Bu kod txt kaydediyor. aynısı varsa üzerine yazıyor. Benim isteğim üzerine yazmasın uyarı versin üzerine yazayımmı yaz dersem yazsın. demezsem yine input ekranı geri gelsin yada hiç kaydetmesin.
Kod:
Sub KAYDET_KPPT()
Dim i, sat As Integer
a = InputBox("Dosya Adını Giriniz. Bu isimden dosya varsa üzerine yazılır.", "Kamuproplus")
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\" & a & ".kppt" For Output As #1
For i = 1 To sat
Print #1, Cells(i, "a")
Next i
Close
End Sub