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 08-01-2016, 19:55   #1
mozakay
 
Giriş: 31/01/2014
Mesaj: 82
Excel Vers. ve Dili:
excell 2007
Varsayılan Hücre rengine göre çalışan makro ya ihtiyacım var.

ARKADAŞLAR HERKESE MERHABA,

söyle bir koda ihtiyacım var. yardımcı olabilecek birileri varsa çok sevinirim.


Sayfa1 (B:B) sütunundaki fon rengi kırmızı olan hücreleri
Sayfa2 (B:B) sütununda bul. bulundukları satırı sil.
mozakay Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 20:06   #2
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Örnek dosya ekleyiniz.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 21:19   #3
mozakay
 
Giriş: 31/01/2014
Mesaj: 82
Excel Vers. ve Dili:
excell 2007
Varsayılan

Sayın orion1 merhaba

örnek bir dosya hazırladım ama gönderemedim bir türlü.
mozakay Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 21:26   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
mozakay tarafından gönderildi Mesajı Görüntüle
Sayın orion1 merhaba

örnek bir dosya hazırladım ama gönderemedim bir türlü.
Bir dosya upload sitesinden link verin o zaman.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 21:42   #5
mozakay
 
Giriş: 31/01/2014
Mesaj: 82
Excel Vers. ve Dili:
excell 2007
Varsayılan

http://s6.dosya.tc/server5/lm9nmc/ORNEK_DOSYA.rar.html

örnek dosyanın linki
mozakay Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 21:58   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Dosyanız ektedir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
a = MsgBox("RAPORU SİLMEDEN ÖNCE MAİL İLE GÖNDERDİĞİNİZDEN EMİN OLUNUZ!!. SİLMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbOKCancel)
If a = vbCancel Then Exit Sub
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Set sh = Sheets("TAKİP")
For i = 2 To sonsat
    If Range("B" & i).Interior.Color = vbRed Then
        Set k = sh.Range("B2:B" & Rows.Count).Find(Cells(i, "B").Value, , xlValues, xlWhole)
        sh.Rows(k.Row).Delete
    End If
Next i
Application.DisplayAlerts = False
Eklenmiş Dosyalar
Dosya Türü: xlsm ÖRNEK DOSYA59.xlsm (34.5 KB, 5 Görüntülenme)
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 22:03   #7
mozakay
 
Giriş: 31/01/2014
Mesaj: 82
Excel Vers. ve Dili:
excell 2007
Varsayılan

ali bey tam istediğim buydu. nasıl teşekkür etsem az.
emeğinize sağlık.
sağlıcakla kalın.
mozakay Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 22:05   #8
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
mozakay tarafından gönderildi Mesajı Görüntüle
ali bey tam istediğim buydu. nasıl teşekkür etsem az.
emeğinize sağlık.
sağlıcakla kalın.
İsmim ali değil Evren.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 23:32   #9
mozakay
 
Giriş: 31/01/2014
Mesaj: 82
Excel Vers. ve Dili:
excell 2007
Varsayılan

Evren bey kusura bakmayın. Tersim dödü resmen. Bu işler bizim gibi acemiler için biraz fazla galiba
çok teşekkür ederim. Kullandığım asıl dosyaya uyarladım. Mükemmel çalışıyor.
Emeğinize sağlık.
mozakay Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2016, 23:33   #10
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
mozakay tarafından gönderildi Mesajı Görüntüle
Evren bey kusura bakmayın. Tersim dödü resmen. Bu işler bizim gibi acemiler için biraz fazla galiba
çok teşekkür ederim. Kullandığım asıl dosyaya uyarladım. Mükemmel çalışıyor.
Emeğinize sağlık.
Rica ederim.
İyi çalışmalar.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Ç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 08:54


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden