bir shette olan verileri diğer sheetlerde bulup silmek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

bir shette olan verileri diğer sheetlerde bulup silmek

İleti#1)  judlas » 09 Ekm 2018 16:14

Merhaba

Sheet1 de alt alta her hücrede veri olsun . ben butona bastığımda her hücredeki veriyi diğer sheetlerde arayıp var ise o shette aynı olan veriyi silen bir makro yardımı istiyorum.

Örneğin

Sheet1
A1 = 8888
A2 = 7777
A3 = a2359
A4 = 65ggg
.
.
.

Şeklinde alt alta giden veriler olsun.

ben makroyu çalıştırdığımda önce a1 verisini diğer sheetlerde arasın diyelimki sheet5 te G8 de 8888 verisini bulsun. bunu bulunca G8 den bu veriyi silsin
sonra a2 ye baksın. 7777 verisi hiç bir sheette yoksa bir alta geçsin A3 teki veriyi arasın a2359 verisini sheet8 de D55 te bulsun ve silsin hatta bu veriyi bir de sheet12 de M11 dede bu veri olsun ve onuda silsin.

en son makro bitince msgbox ile tamamlandı uyarısı ile sonlandırabiliriz.

Bilgi ve yardımlarınızı rica ederim
Kullanıcı avatarı
judlas
Siteye Alışmış
 
Kayıt: 14 Kas 2014 19:58
Meslek: Network
Yaş: 40
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Levent

Cevap: bir shette olan verileri diğer sheetlerde bulup silme

İleti#2)  rastbin » 09 Ekm 2018 17:00

Kod: Tümünü seç
Sub sil()
Application.ScreenUpdating = False
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set wf = WorksheetFunction
For i = 2 To s1.Cells(Rows.Count, 1).End(xlUp).Row
If wf.CountIf(s2.Range(s2.Cells(2, 1), s2.Cells(s2.Cells(Rows.Count, 1).End(xlUp).Row, 1)), s1.Cells(i, 1)) >= 1 Then
s1.Cells(i, 1).ClearContents
End If
Next i
MsgBox "Tamamlandı", vbInformation, "Dikkat"
End Sub


bütün sayfaya nasıl entegre olur bilemedim.bu kod şu şekilde çalışıyor.

sayfa 1 a sütununda tüm hücrelere bakıyor.sayfa2 nin a hücresinde mükerrer kayıt var ise sayfa 1 a hücresinden siliyor.tüm sayfalar için başka bir arkadaş yardımcı olur.belki bu kod üzerinden çalışırsınız diye paylaşayım dedim.
Kullanıcı avatarı
rastbin
Yeni Başlamış
 
Kayıt: 13 Ağu 2018 10:31
Meslek: Bilgi Teknolojileri Uzmanı
Yaş: 25
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: bir shette olan verileri diğer sheetlerde bulup silme

İleti#3)  tasad » 10 Ekm 2018 10:03

Aşağıdaki kodları deneyebilirsiniz.
Kod: Tümünü seç
Sub sil()
Dim a As Long, i As Long
    Application.ScreenUpdating = False
    For i = 2 To Sheets("sayfa1").Cells(Rows.Count, "a").End(xlUp).Row
    For a = 2 To Sheets.Count
Sheets(a).Cells.Replace What:=Sheets("sayfa1").Cells(i, 1), Replacement:=""
Next
Next
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAM"
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 261
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: bir shette olan verileri diğer sheetlerde bulup silme

İleti#4)  ahfirat » 10 Ekm 2018 10:19

Kod: Tümünü seç
Sub Makro2()


For i = 1 To 21
Cells(i, 1).Select
a = ActiveCell.Value
    Cells.Replace What:=ActiveCell.Value, Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    ActiveCell.Value = a
        Next i
       
End Sub
Kullanıcı avatarı
ahfirat
Yeni Başlamış
 
Kayıt: 10 Oca 2018 11:18
Meslek: inşaat mühendisi
Yaş: 39
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: bir shette olan verileri diğer sheetlerde bulu

İleti#5)  judlas » 10 Ekm 2018 13:12

selamlar üstadım. bu kodla silme işlemi oldu ama kendi bulunduğu sheettekilerde silindi. gerçi silinebilir ama silinmesin dersek ne gibi ekleme yapabiliriz. if not sh.name gibi bir kod mu eklemek gerekir.

tasad yazdı:Aşağıdaki kodları deneyebilirsiniz.
Kod: Tümünü seç
Sub sil()
Dim a As Long, i As Long
    Application.ScreenUpdating = False
    For i = 2 To Sheets("sayfa1").Cells(Rows.Count, "a").End(xlUp).Row
    For a = 2 To Sheets.Count
Sheets(a).Cells.Replace What:=Sheets("sayfa1").Cells(i, 1), Replacement:=""
Next
Next
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAM"
End Sub
Kullanıcı avatarı
judlas
Siteye Alışmış
 
Kayıt: 14 Kas 2014 19:58
Meslek: Network
Yaş: 40
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Levent

Cevap: bir shette olan verileri diğer sheetlerde bulup silme

İleti#6)  tasad » 10 Ekm 2018 13:46

Kodları kaydettikden sonra dosyayı kapatıp yeniden açın.
Denemesini yaptım,sayfa1 dışında diğer sayfaları siliyor.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 261
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: bir shette olan verileri diğer sheetlerde bulup silme

İleti#7)  ahfirat » 10 Ekm 2018 15:18

şuna dikkat çekmek isterim...bul değiştir yapıyoruz...mesela a5 hücresinde 12 olsun siz 12 yi diğer sayfada bulursa silsin istiyorsunuz...şöyle bir sorunla karşılaşabilirsiniz..diğer hücrelerde 12 geçen herhücreyi sileceği için 123456 içeren bir hücreyi de 3456 olarak değiştirmektedir..bunu istemiyorsanız "LookAt:=xlWhole" kodunu eklemenizi öneririm..iyi günler
Kullanıcı avatarı
ahfirat
Yeni Başlamış
 
Kayıt: 10 Oca 2018 11:18
Meslek: inşaat mühendisi
Yaş: 39
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot], mars2, omeryılmaz, Sogou ve 2 misafir

cron
Bumerang - Yazarkafe