(20/11/2020, 21:49)berduş yazdı:

(20/11/2020, 21:35)hayalibey yazdı: Son dosya üzerinden yürümemiz mümkün mü berduş hocam

yanılmıyorsam daha önceden bir mesajımda belirtmiştim ben excelden pek anlamam zaten o nedenle Ado yöntemiyle yaptım ama @feraz beyin yapabileceğinden eminim.

Berduş Hocam çok teşekkür ederim.
Emeğinize sağlık ama sizin kodları anlamlandıramadığım için ilerde hata verse düzeltemem diye endişe ediyorum.
Zafer Hocam  @feraz  bakabilirse çok sevinirim.

---

(20/11/2020, 21:57)feraz yazdı: Emin olmak için 2 adet dosya hazırladım.Dosya adlarını okuyunuz.

Tüm sayfalardaki alttaki kodlar silinmeli.

Private Sub Worksheet_Change(ByVal Target As Range)

''''''''''''''''''Satýrlara Tablo Yapmak''''''''''''''''''''''''''''''''''''''''''

Range("A2:AJ10000").Borders.LineStyle = 0

Range("A2:AJ" & [B10000].End(3).Row).Borders.LineStyle = 1

Range("A2:AJ" & [B10000].End(3).Row).Borders.LineStyle = xlContinuous

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub

Zafer Hocam format ekli dosya lütfen bu dosya üzerinden devam edelim ya da uzaktan bağlanırsanız daha çabuk olur böyle zor oluyor