şayet bu sütunda şu rakamlar varsa sil!!

[imyourfate]

şayet bu sütunda şu rakamlar varsa sil!! bu uygulamayı en uygun ne şekilde yapabilirim bunu çalıştırabileck bir formül varmıdır yardımlarınız için şimdiden teşekkür ediyorum bir belge ekledim kırmızı renkli rakamların otomatik silinmesini
istiyorum

Saygılarımla

 

[İhsan Tank]

Merhaba
Bu rakamları nasıl belirleyeceksiniz_?

 

[imyourfate]

Hocam ilginize teşekkür ediyorum bu sayılar aslında otel oda numaralarıdır ama listede olmamaları gerekiyor ama kullandığımız sistem raporlama aşamasında bu numaralarıda veriyor ekli dosyada kırmızı ile belirttiğim sayılardır ben makro kaydet şeklinde yapmayı denedim ama bu sayılar sabit değil oda numaraları olduğu için her gün değişebilmekte yani hücreler üzerinden gittiğimizde bir sonraki gün benim makro anlamını yitiriyor
Saygılar

 

[İhsan Tank]

Hocam ilginize teşekkür ediyorum bu sayılar aslında otel oda numaralarıdır ama listede olmamaları gerekiyor ama kullandığımız sistem raporlama aşamasında bu numaralarıda veriyor ekli dosyada kırmızı ile belirttiğim sayılardır ben makro kaydet şeklinde yapmayı denedim ama bu sayılar sabit değil oda numaraları olduğu için her gün değişebilmekte yani hücreler üzerinden gittiğimizde bir sonraki gün benim makro anlamını yitiriyor
Saygılar

Merhaba
Şöyle bir şey yapsak işinizi görür mü_?
Listede çift tıkladığınız satır silinsin ve diğerleri kalsın işinizi görür mü_?
Mesela 1157'ye tıkladınız bu satır silinsin. Daha sonra 1158'e tıkladınız oda silinsin.

 

[imyourfate]

Efendim olur güzel olur ama şunu belirtmeliyimki ben bu sayıları ''oda numaralarını'' kendi oluşturduğum bir belgeye otel sisteminin oluşturduğu excel belgesinden kopyala yapıştır şeklinde getiriyorum belirttiğim ''kırmızı''ı numaraların silinmesini istiyorum ayrıca bu numaralar silindikten sonra kalan boşluklar gitsin yani küçükten büyüğe bir sıralama olsun

Hocam ilginize tekrar teşekkür ediyorum Allah (c.c) razı olsun

 

[imyourfate]

hocam kendi hazırladığım belgeyi ekte bulabilirsiniz affınıza sığınıyorum siz satırlar silinsin deyince ben yanlış anladım diğer sütunlardada sayılar var bu sefer lazım olanlarda silinebilir

 

[İhsan Tank]

Efendim olur güzel olur ama şunu belirtmeliyimki ben bu sayıları ''oda numaralarını'' kendi oluşturduğum bir belgeye otel sisteminin oluşturduğu excel belgesinden kopyala yapıştır şeklinde getiriyorum belirttiğim ''kırmızı''ı numaraların silinmesini istiyorum ayrıca bu numaralar silindikten sonra kalan boşluklar gitsin yani küçükten büyüğe bir sıralama olsun

Hocam ilginize tekrar teşekkür ediyorum Allah (c.c) razı olsun

Merhaba
Allah sizden de razı olsun.
Sayfada hücreleri birleştirmişsiniz. Önce B ve C sütunları seçin ve silin. Sonra Sayfanın kod bölümüne kopyalayın. Sonra hangi rakamı silecekseniz onun üzerinde çift tıklayın ve deneyin.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Rows(Target.Row).Delete
Range("A:A").Sort key1:=Range("A1"), order1:=xlAscending
End Sub

Kopya olayına gelince bu ilk aklıma geldiği için çift tıklamayı söyledim. Listeden tüm verileri seçtikten sonra buraya yapıştırın sonra tek tek silersiniz çift tıklayarak.

 

[İhsan Tank]

hocam kendi hazırladığım belgeyi ekte bulabilirsiniz affınıza sığınıyorum siz satırlar silinsin deyince ben yanlış anladım diğer sütunlardada sayılar var bu sefer lazım olanlarda silinebilir

Merhaba
Bu söylediğinize göre ilk dosyaya yapmak isterseniz hücre bilgisini temizleriz sonra sıralarız olur biter. Kodu sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Range("A" & Target.Row).ClearContents
Range("A:A").Sort key1:=Range("A1"), order1:=xlAscending
End Sub

 

[imyourfate]

Hocam sağolun hayırlı işler diliyorum
Allah'a emanet olun

 

[İhsan Tank]

Hocam sağolun hayırlı işler diliyorum
Allah'a emanet olun

Sizde Allah'a emanet olun.
Kolay Gelsin
:keyif: