Makro İle Aynı olan Hücreleri Silme.

[muratnazli]

Makro Ýle Aynı olan Hücreleri Silme.

Selamlar,

İlişikteki dosyada adet sütunundaki birbirinin aynısı olan hücrelerden ilkini bırakıp diğerlerini makro silmek istiyorum. Þöyleki örenk dosyada B2 hücresinin değeri 25, B3 hücresinin değeride 25, B2 hücresini bırakıp B3 hücresini silmek gibi.Yardımcı olursanız sevinirim.

Teşekkürler.

 

[TRABLUS]

Ben de senin işine yarıyacak bir makro var.Yalnız bende ki makro A sütununa bakıp silme işini yapıyor sen gerekli düzeltmeleri yaparsın.
For i = 65536 To 1 Step -1
If Cells(i, 1) <> "" Then
If Cells(i, 1) = Cells(i - 1, 1) Then
Sheets("sendeki sayfanın ismini buraya mutlaka yaz").Rows(i).Select
Selection.Delete Shift:=xlUp
End If
End If
Next i
End Sub

 

[xxrt]

B Sütununda Bulunan ve aynı sayılardan oluşan değerlerin birtanesi kalacak diğerleri silinecek.

Sub mukerrersil()
Dim i, y, a As Integer
a = WorksheetFunction.CountA(Range("b1:b65000"))
For i = 1 To a
For y = i + 1 To a
If Cells(i, 1).Value = Cells(y, 1) Then
Cells(i, 1).Value = Cells(i, 1).Value
Cells(y, 1).Value = Cells(y, 1).Value
Cells(y, 1).EntireRow.Delete
End If
Next y
Next i
End Sub

 

[TRABLUS]

....

 

[Levent Menteşoğlu]

bir örnekte benden

Sub Makro1()
For a = 1 To 10
b = Cells(a, 1).Value
For c = a + 1 To 10
d = Cells(c, 1).Value
If b = d Then
Cells(c, 1).Select
Selection.Delete Shift:=xlUp
End If
Next c
Next a
End Sub

 

[muratnazli]

Sayın xxrt,

Gönderdiğiniz kod aynı olan satırlardan bir tanesini bırakıp diğerlerini siliyor. Fakat ben satırları değil hücre içeriği aynı olan hücrelerden ilkini bırakıp diğerlerini silmek istiyorum. İlginize teşekkür ederim.

Selamlar.

 

[TRABLUS]

Ã?nce dosyanızda ki bilgileri A sütununa göre A dan Z ye sıralayın sonra silme işlemini gerçekleştirin.

 

[Levent Menteşoğlu]

aşağıdaki makro sadece hücredeki değerleri siler.

Sub Makro1()

x = WorksheetFunction.CountA(Range("A1:A65000"))
For a = 1 To x
b = Cells(a, 1).Value
For c = a + 1 To x
d = Cells(c, 1).Value
If b = d Then
Cells(c, 1).ClearContents
End If
Next c
Next a
End Sub

 

[muratnazli]

Sayın leventm,

Teşekkür ederim.Gönderdiğiniz kod çok işime yaradı.

Selamlar.

 

[xxrt]

Sayın Leventm'nin kodları sizin istediğiniz gibi..

 

[BuRacK]

leventm dostum kodlar s&#252;per =)

 

[katip16487]

Arkada&#351;lar,
Benim de ayn&#305; konuda bir sorum olacak.
Ancak benim durumumda bir farkl&#305;l&#305;k var.

Benim sorum ve sorunum &#351;u.
Elimde bir excel &#231;al&#305;&#351;mas&#305; var.
Bu &#231;al&#305;&#351;man&#305;n;

1....... A S&#220;TUNUNDA; B s&#252;tunu ve C s&#252;tunundaki (AYNI SATIRDAK&#304 verilerin aras&#305;nda ( / ) i&#351;areti olacak &#351;ekilde birle&#351;tirildi&#287;i bir verim yer al&#305;yor.

2....... B ve C s&#252;tunundaki verilerim SAYISAL DE&#286;ERLER

3....... D s&#252;tunumda ise HER SATIRDA OLMAMAK KAYDIYLA SAYISAL VER&#304;LER YER ALMAKTA.

4....... E s&#252;tunumda ise; D s&#252;tunundaki veriye ba&#287;lant&#305;l&#305; olacak &#351;ekilde; D s&#252;tunundaki h&#252;cre de&#287;eri bo&#351; ise, E s&#252;tununa DERDEST, dolu ise KARAR yazmay&#305; sa&#287;layan FORM&#220;L bulunmakta.

A s&#252;tununda M&#220;KERRER OLAN KAYITLARDAN ve E s&#252;tununda DERDEST yazan, ba&#351;ka bir deyi&#351;le D s&#252;tunu BO&#350; OLAN SATIRI S&#304;LMEK.

Bunu SATIR S&#304;LME Y&#214;NTEM&#304; &#304;LE TEKER TEKER yapabiliyorum. Ancak &#231;ok fazla verim bulundu&#287;u i&#231;in &#231;ok uzun zaman al&#305;yor. Bu nedenle sizlerden iste&#287;im bunu k&#305;sa yoldan ve k&#305;sa zamanda yapabilece&#287;im bir i&#351;lemin olup olmad&#305;&#287;&#305; hususunda yard&#305;mc&#305; olman&#305;zd&#305;r.

Verece&#287;iniz yan&#305;tlar ve yapaca&#287;&#305;n&#305;z yard&#305;mlar i&#231;in &#351;imdiden te&#351;ekk&#252;r ediyorum...

Sayg&#305;lar&#305;mla...

&#214;RNEK DOSYANIN BULUNDU&#286;U ADRES

http://www.dosya.cc/DOSYA_1.xls.html