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

Başlık: Ynt: Excel veya Visual Studio ile Profesyonel Program Talepleriniz
Gönderen: 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.
Başlık: Ynt: Ynt: Excel veya Visual Studio ile Profesyonel Program Talepleriniz
Gönderen: seyhan6591 - 14 Aralık 2018, 14:58:27
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