Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-12-2017, 15:03   #1
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan Vba Bul ve sil

Merhabalar,
G sütununda ve B sütununda tarihlerim var,
G sütunundaki tarihleri B sütununda arayıp bulan,
bulduğu hücreyi yukarı sürükleyerek silme işlemi yapmak istiyordum.

Dim x As Integer
For x = 0 To 22
SONUC = ActiveSheet.Cells(1, 7) 'G sütunu
Cells.Find(What:=SONUC, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Next x

Şeklinde yazdığım makro istediğim işlemi yapıyor fakat,
Tüm sayfada arama silme yaptığından,
G sütunundaki verileri de siliyor.
Eksiğim nerededir yardımcı olabilme ihtimaliniz var mıydı?
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 15:28   #2
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,413
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Sadece "g1" hücresindeki verimi aranacak yoksa "g1:g22" aralığındakilerde mi?
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 15:40   #3
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan

Merhabalar,
G2:G11 aralığında olanları B sütununda arayacak
B sütununda bulduğu o hücreyi "Delete Shift:=xlUp" yöntemiyle silecek.
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 16:32   #4
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,413
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Ek dosyayı deneyiniz
Eğer "b" sütununda aynı tarih 1 den fazla olma ihtimali yoksa aşağıdaki mavi satırları silersiniz.
http://www.dosya.tc/server10/zqyyes/23.zip.html
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim x As Integer
For x = 1 To 11
SONUC = ActiveSheet.Cells(x, 7)
s = Cells(Rows.Count, "B").End(3).Row
i = WorksheetFunction.CountIf(Range("B1:B" & s), SONUC)
If i > 0 Then
For j = 1 To i
    Set c = Range("B1:B" & s).Find(SONUC, , xlFormulas, _
xlPart, xlByRows, xlNext, False, False)
    If Not c Is Nothing Then c.Delete Shift:=xlUp
Next: End If
Next

End Sub
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 16:45   #5
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan

Sayın PLİNT,
Kodlar tam olarak çalıştı.
Emeğinize sağlık.
Bir sorum daha olacaktı yardımcı olmanız mümkün müydü?
Eklemiş olduğum excel'de G sütunundaki tarihleri sizin yardımınızla B sütununda bulup sildik.
ardından B Sütununda son dolu hücreyi bulup otomatik doldurmasını istiyordum.
Son dolu hücreyi buldum ama otomatik doldur diyince hata veriyor.

https://drive.google.com/file/d/1G_h...ew?usp=sharing
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 19:07   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,093
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Düğme1_Tıklat()
Dim x As Integer
For x = 1 To 11
SONUC = ActiveSheet.Cells(x, 7)
s = Cells(Rows.Count, "B").End(3).Row
i = WorksheetFunction.CountIf(Range("B1:B" & s), SONUC)
If i > 0 Then
For j = 1 To i
    Set c = Range("B1:B" & s).Find(SONUC, , xlFormulas, _
xlPart, xlByRows, xlNext, False, False)
    If Not c Is Nothing Then c.Delete Shift:=xlUp
Next: End If
Next


Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C32")
Range("C2:C32").Select


Dim son As Long
son = Range("B" & Rows.Count).End(xlUp).Row

Range("B" & son).Select
Selection.AutoFill Destination:=Range("B" & son & ":B32")

End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-12-2017, 12:11   #7
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan

https://drive.google.com/file/d/1cez...ew?usp=sharing

Arkadaşlar İlginize çok teşekkür ederim,
Kodlar tam olarak çalıştı,
bir sorunum daha olacaktı;
Eklemiş olduğum dosyada,
H sütunundaki tarihleri ,
C sütununda arayıp siliyor.
C sütununda boş kalan hücreler otomatik dolduruluyor.
İstediğim C sütununda yeni ay başladığı zaman
yeni bir sayfa açıp adına eski sayfanın adı + yeni ayın ismi koymak,
eski sayfada yeni ay olan bütün satırları yeni sayfaya aktaracak,
ve eski sayfadaki satırları silinecek,
yeni sayfa yeni aydan başlayarak reyonlar otomatik olarak 1 aylık düzenlenecek,
bu işlem 12 aylık olarak yapılabilir mi ?
Emeğinize ve parmaklarınıza teşekkür ederim.
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 10:41   #8
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan

Son Yazdığım Soruya herhangi bir cevap alamadım ama
Herhalde sorduğum sorumu mantıksızdı acaba ?
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 13:48   #9
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

Alıntı:
sessizkule tarafından gönderildi Mesajı Görüntüle
Son Yazdığım Soruya herhangi bir cevap alamadım ama
Herhalde sorduğum sorumu mantıksızdı acaba ?
Sorular ve cevapları ; genelin de yararı ve kullanmasına açık olarak veriliyor, amaç yardım ve örnek olarak sorulmadan kullanılması ; bu sitede genel eğilim budur.

Ancak siz sorunuzda başkasına da örnek değil size göre bir öznelleştirmeye program yazdırmayı hedeflemiş göründüğünüzden cevap almanız zorlaşmış olabilir. Bu sitede genel eğilim sorun ve tıkanma noktalarında ilerlemeye yardımdır , öznel bir program yazmak değil .

Bu bir eleştiri ikaz değil bunlar haddim olamaz ama , sadece naciz olası neden belirtmek ...

Bu mesaj en son " 18-12-2017 " tarihinde saat 13:54 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 06:35   #10
sessizkule
 
Giriş: 19/11/2007
Mesaj: 11
Excel Vers. ve Dili:
office 2003
Varsayılan

Sayın cems,
doğru söylüyorsunuz, biraz kaptırdım kendimi şuda buda olsun diyerek.
sessizkule Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:39


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden