AccessTr.neT
A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme (/konu-a-sayfasinda-olan-veri-b-sayfasinda-varsa-a-sayfasindaki-ilgili-satiri-silme.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12


RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - feraz - 20/11/2020

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



RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - hayalibey - 20/11/2020

(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


RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - feraz - 20/11/2020

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



[Resim: sirali.gif]
[Resim: sirasiz.gif]


RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - berduş - 20/11/2020

(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ı?


RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - feraz - 20/11/2020

(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 Img-grin


RE: A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme - hayalibey - 20/11/2020

(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 Img-grin


hocam özeldenmesaj gelmiyor kapalı