Makro İle Aynı olan Hücreleri Silme.

Katılım
23 Eylül 2004
Mesajlar
91
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.
 
T

TRABLUS

Misafir
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
 
X

xxrt

Misafir
B Sütununda Bulunan ve aynı sayılardan oluşan değerlerin birtanesi kalacak diğerleri silinecek.
Kod:
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
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
23 Eylül 2004
Mesajlar
91
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.
 
T

TRABLUS

Misafir
Ã?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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 

katip16487

Altın Üye
Katılım
28 Haziran 2007
Mesajlar
168
Excel Vers. ve Dili
OFFİCE 2016 (Türkçe)
Altın Üyelik Bitiş Tarihi
17-03-2025
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
 
Üst