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 11-11-2017, 12:34   #1
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan Koşullu Seçme-İşaretleme

İyi günler;

http://www.dosya.tc/server10/cenldq/ncr.xlsx.html

ekteki dosyada "N" sütununda kendim manuel olarak Aynı Blok, Aynı kat, Aynı daire olan hataların sadece 1 tanesini alacak şekilde düzenledim. örneğin 1 dairede aynı hatadan 4-5 uygunsuzluk var ise yalnızca 1 tanesini almasını istiyorum. manuel olarak yapmak çok vaktimi alıyor makro ile çözümü var mıdır şimdiden teşekkürler,

Not: makro kayıt yöntemi ile hangi mantıksal sınamayı kullandığınızı da izah ederseniz makro kullanım mantığını kavramam açısından faydalı olacaktır.
yucelcicekcioglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 13:31   #2
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,789
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Eki deneyin.
İyi çalışmalar.

Not : Makro ile ilgili basit açıklamalar makro içerisinde..

Link:
http://www.dosya.tc/server10/b7n9hl/...tleme.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip yucelcicekcioglu-Koşullu Seçme-İşaretleme.zip (11.4 KB, 10 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 15:36   #3
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Eki deneyin.
İyi çalışmalar.

Not : Makro ile ilgili basit açıklamalar makro içerisinde..

Link:
http://www.dosya.tc/server10/b7n9hl/...tleme.zip.html

hocam elinize sağlık doğru çalışıyor gibi ancak N sütunundaki hücreleri birleştir ile seçip mükerrerleri iptal etme şeklinde mi mantık kurdunuz? birleştir fonksiyonu içine sırasıyla (g-h-j-k-l-m) sütunları yazmak gerekiyordu parsel-blok-kat-daire den önce eleme koşulumuz imalat kategori ve hata tipine de bağlı,

bir de açıklamalardan çok anlayamadım açıkçası biraz acemiyim kusura bakmayın, makro kaydet yöntemi ile mi yaptınız kod yazarak mı? makro kaydetme yolu ile yapacak olursak hangi mantığı düşünmek gerekir tekrarlananları sil metodu ile değil de, tekrarlananları saymayıp diğerlerine sayı verme mantığını nasıl kurdunuz?

ayrıca ben makroyu alıp bu dosyanın orjinaline çalıştırdığımda işlem tamam penceresi geliyor ancak yanına rakamları yazmıyor

Bu mesaj en son " 11-11-2017 " tarihinde saat 16:42 itibariyle yucelcicekcioglu tarafından düzenlenmiştir....
yucelcicekcioglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 16:45   #4
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,789
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Tahmin ettiğiniz gibi hücreleri birleştirerek mükerrer olanlardan ilkine sayı no'su verdirdim.
Birleştirme için belirttiğiniz (g-h-j-k-l-m) sütunları kullanıldı.
Makrolar kaydet yöntemi ile değil , yazarak oluşturuldu.

If WorksheetFunction.CountIf(Range("n2:n" & i), Cells(i, "n")) = 1 Then

bu satır ile ilk geçen veri ise sıra no'su işlemi yaptırıldı.

Ben sizin örneğinizdeki dosyayı kullandım. (orj. dosyanızdaki sorunu bilemem.)
Makro döngü için J sütununa bakıyordu bunu G sütunu olarak değiştirdim. (siz orj. dosyanızda tüm satırlar için var olan bir sütunu kullanın.)


Eki tekrar deneyin.
İyi çalışmalar.

Link:
http://www.dosya.tc/server10/cytypg/...eme-1.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip yucelcicekcioglu-Koşullu Seçme-İşaretleme-1.zip (13.8 KB, 12 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 22:44   #5
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Tahmin ettiğiniz gibi hücreleri birleştirerek mükerrer olanlardan ilkine sayı no'su verdirdim.
Birleştirme için belirttiğiniz (g-h-j-k-l-m) sütunları kullanıldı.
Makrolar kaydet yöntemi ile değil , yazarak oluşturuldu.

If WorksheetFunction.CountIf(Range("n2:n" & i), Cells(i, "n")) = 1 Then

bu satır ile ilk geçen veri ise sıra no'su işlemi yaptırıldı.

Ben sizin örneğinizdeki dosyayı kullandım. (orj. dosyanızdaki sorunu bilemem.)
Makro döngü için J sütununa bakıyordu bunu G sütunu olarak değiştirdim. (siz orj. dosyanızda tüm satırlar için var olan bir sütunu kullanın.)


Eki tekrar deneyin.
İyi çalışmalar.

Link:
http://www.dosya.tc/server10/cytypg/...eme-1.zip.html

hocam eline koluna sağlık, sizden rica etsem tek tek bu kodu bana izah edebilir misiniz? oldukça amatör olduğumu göz önüne alarak biraz vaktinizi alabilir miyim? böyle böyle inceleyerek ne nedir ne işe yarar anlamaya çalışıyorum. örneğin : kodun başında Application.ScreenUpdating = False ve sonunda Application.ScreenUpdating = True yazmışsınız, bu neye yarar,
yucelcicekcioglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 23:28   #6
unlimitted
Altın Üye
 
Giriş: 07/01/2015
Şehir: ankara
Mesaj: 231
Excel Vers. ve Dili:
2013 english
Varsayılan

Makro kodları satır satır okuyup işler.
Her satır sonunda yaptığı işlemi ekrana yazdığını görmenize gerek varsa Application.ScreenUpdating = True, önemli olan işlemin sonunda görmenizse Application.ScreenUpdating = False komutu uygulanır.
unlimitted Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-11-2017, 16:38   #7
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,789
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Syn. yucelcicekcioglu;
Bildiğiniz gibi vba tek satırdaki anlamdan yada birkaç satırlık koddan ibaret değil.
Eğer bunu öğrenmek yada geliştirmek istiyorsanız bir kaynak edinin ve Altın üye olun. Böylece Buradaki dosya yada video'ları izleme-inceleme deneme şansınız olur.
İyi çalışmalar.
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 07:12   #8
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Syn. yucelcicekcioglu;
Bildiğiniz gibi vba tek satırdaki anlamdan yada birkaç satırlık koddan ibaret değil.
Eğer bunu öğrenmek yada geliştirmek istiyorsanız bir kaynak edinin ve Altın üye olun. Böylece Buradaki dosya yada video'ları izleme-inceleme deneme şansınız olur.
İyi çalışmalar.

çok sağolun hocam anlaşılmıştır
yucelcicekcioglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 07:14   #9
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan

Alıntı:
unlimitted tarafından gönderildi Mesajı Görüntüle
Makro kodları satır satır okuyup işler.
Her satır sonunda yaptığı işlemi ekrana yazdığını görmenize gerek varsa Application.ScreenUpdating = True, önemli olan işlemin sonunda görmenizse Application.ScreenUpdating = False komutu uygulanır.

açıklama için teşekkürler hocam
yucelcicekcioglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 20:04   #10
yucelcicekcioglu
 
Giriş: 30/06/2015
Şehir: Antakya
Mesaj: 22
Excel Vers. ve Dili:
Office 2013- türkçe
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Tahmin ettiğiniz gibi hücreleri birleştirerek mükerrer olanlardan ilkine sayı no'su verdirdim.
Birleştirme için belirttiğiniz (g-h-j-k-l-m) sütunları kullanıldı.
Makrolar kaydet yöntemi ile değil , yazarak oluşturuldu.

If WorksheetFunction.CountIf(Range("n2:n" & i), Cells(i, "n")) = 1 Then

bu satır ile ilk geçen veri ise sıra no'su işlemi yaptırıldı.

Ben sizin örneğinizdeki dosyayı kullandım. (orj. dosyanızdaki sorunu bilemem.)
Makro döngü için J sütununa bakıyordu bunu G sütunu olarak değiştirdim. (siz orj. dosyanızda tüm satırlar için var olan bir sütunu kullanın.)


Eki tekrar deneyin.
İyi çalışmalar.

Link:
http://www.dosya.tc/server10/cytypg/...eme-1.zip.html
hocam bu attığınız dosyada sonuç olarak çıkan sayıları "x" gibi bir harf ile değiştirmek mümkün müdür? sütunu seçip değer var ise değeri x olarak değiştir yok ise boş bırak gibi bir şey yapmak istedim beceremedim, +EĞER(O2=0;"";"X") şeklidne formül yazıp aşağı çekiyorum ancak bu sefer sayma işleminde +bağ_değ_dolu_say formülünde "" şeklindeki sonucu da bir değer olarak sayıyor. makro ile yapmanın yöntemi var mıdır? bilgilendirirseniz benim için aydınlatıcı olacaktır yazdığınız makroyu incelemek. teşekkürler
yucelcicekcioglu Ç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 11:00


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- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden