Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: mutlubasaran - 21 Eylül 2018, 17:11:06
-
Merhabalar,
Flanş sayfasındaki ürün kodları ile sayfa1 sayfasındaki kodları karşılaştırıyor (sayfa1 deki flanş düğmesine basınca); eksik kod olduğunda makro hata uyarısı veriyor; makro duruyor. Bunun yerine eksik olan kodu (flanş sayfasındaki L81 deki kodu) Madde Listesi1 sayfasındaki A sütununun en altına ekleyip, makronun da çalışmasını yarıda kesmek yerine kaldığı yerden devam edeceği yeni bir düzenleme yapılabilir mi? (aynı düzenlemenin FITTING düğmesi için de olması gerekmektedir)
Teşekkür Ederim.
İyi çalışmalar dilerim.
-
Dim bulundu_mu as string
bulundu_mu="hayır"
SonSatır= Worksheets("sayfa1 ").Cells(Rows.Count, "A").End(xlUp).Row ' kaç madde var saydırın
TekrarTara:
'MADDE ARAMA KODLARINIZ BURAYA. BULDUĞUNDA (bulundu_mu="evet") atamalı
'bulamadığında
if bulundu_mu="hayır" then 'en alta maddeyi ekle kodları
if bulundu_mu="hayır" then goto TekrarTara:
Bu şekilde olabileceğini düşünüyorum. İyi çalışmalar