Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Ynt: Excel veya Visual Studio ile Profesyonel Program Talepleriniz  (Okunma sayısı 3869 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı mutlubasaran

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Mutlu BAŞARAN
  • Doğum Yılınız: 1980
  • İl / İlçe: TEKİRDAĞ-SARAY
  • İşletim Sisteminiz: EXCEL 2010
  • Mesleğiniz: PAZARLAMA VERİ KAYIT
  • Office Versiyonunuz: EXCEL 2010
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.

Çevrimdışı seyhan6591

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: SEYHAN KUTLU
  • Doğum Yılınız: 1976
  • İl / İlçe: BURSA
Ynt: Ynt: Excel veya Visual Studio ile Profesyonel Program Talepleriniz
« Yanıtla #1 : 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