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

(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

Son eklediğim dosyaya göre gif ekledim ne yaptığıma dair.Normalde alttaki kodlara gerek kalmadan
s3.Range("A7:AJ" & Rows.Count).Clear olarakta ve sade olarak yazılabilirdi.sanıyorum böyle olunca koşullu biçimlendirmelerde silinir.

    s3.Range("A7:AJ" & Rows.Count).UnMerge
    s3.Range("A7:AJ" & Rows.Count).ClearContents
    s3.Range("A7:AJ" & Rows.Count).Interior.ColorIndex = xlNone
    s3.Range("A7:AJ" & Rows.Count).Borders.LineStyle = xlNone

(20/11/2020, 21:55)hayalibey yazdı: Hocam Koşul 1 2 3 randımanlı çalışmıyor.
Koşul 3 gelmeyecek sicillere ilk sicili yazdım gelmedi ama daha sonra koşul3ten sildim ama inadına ocak sayfasına gelmesi gerekirken gelmiyor

şimdi denedim sicili silince gösterdi tekrar ekleyince göstermedi. siz sildikten sonra hücreden çıktınız mı?

(20/11/2020, 22:00)hayalibey yazdı:

(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

Özelden id ve şifre atın abey bu böyle olmayacak

(20/11/2020, 22:08)feraz yazdı:

(20/11/2020, 22:00)hayalibey yazdı:

(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

Özelden id ve şifre atın abey bu böyle olmayacak

hocam özeldenmesaj gelmiyor kapalı