[Yardım]  Koşullu veri aktarma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Koşullu veri aktarma

İleti#1)  acakilli » 13 Eyl 2018 12:52

Merhaba arkadaşlar;

Hali hazırda makro ile ayrıştırma işlemleri için kullandığım bir formum vardı bu zamana kadar sorunsuz kullandım lakin mevcut olan makroda fazladan bir koşul daha eklemem vasıl oldu. Form ekte, çalışma mantığı ve yapmak istediğimi aşağıda detaylandırdım. Kıymetli yardımlarınızı bekliyorum.

# Sistemden aldığım ham verileri ham veri sayfasında ilgili sütunlar altına ekliyorum. Örnek veri ekledim.
# Ham veri sayfasına verileri aldıktan sonra ana sayfada kopyala butonuna tıklayarak ham veri sayfasındaki verileri ana sayfaya kopyalıyorum.
# Ayrıştırma-1, ayrıştırma-2 isimli 2 tane sayfam ve ana safyada bu sayfalara aktarma işleminde kullandığım makroların olduğu 2 butonum var. Butonlarda çalışan makronun çalışma mantığı şöyle;

Örneğin Ayrıştırma-1 Aktar butonuna tıklandı. Sol tarafta kopyalanan verilerin bulunduğu tabloda geliş yeri sütunu altındaki veriler sağ tarafta yer alan sarı renkli tabloda ayrıştırma-1 sütunu altındaki veriler ile eşleşerek sarı tabloda bulunan üçlü kodların sol taraftaki tabloda karşılığı olan veriler ayrıştırma-1 sayfasına aktarılıyor. Şuan için ayrıştırma-1 ve ayrıştırma-2 sayfalarına aktarma işlemleri bu şekilde çalışmaktadır.

Benim eklemek istediğim koşul ise yine sağ taraftaki tablo kontrol edilecek lakin tek fark ayrıştırma-1 sayfasına sol taraftaki tabloda araç nosu 6000 ve üstü veriler aktarılacak. Ayrıştırma-2 sayfasına ise yine sağ taraftaki tablo kontrol edilerek araç nosu 6000'den küçük veriler aktarılacak.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 25
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Cevap: Koşullu veri aktarma

İleti#2)  elfinito » 13 Eyl 2018 15:23

Merhaba,

Ayrıştırma butonlarındaki kodlara (Ayrıştırma 2 için "<6000") olarak aşağıdaki gibi şart ekleyip dener misiniz?

Kod: Tümünü seç
If Sheets("Ana Sayfa").Cells(X, "B") >= 6000 Then
    Sheets("Ayrıştırma-1").Range("B" & SATIR & ":E" & SATIR).Value = Range(Cells(X, "B"), Cells(X, "E")).Value
    End If
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Koşullu veri aktarma

İleti#3)  acakilli » 14 Eyl 2018 08:40

Merhaba hayırlı cumalar;

Denedim lakin çalışmadı yada ben beceremedim. [ilginc]
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 25
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Cevap: Koşullu veri aktarma

İleti#4)  acakilli » 14 Eyl 2018 09:12

Halletim arkadaşlar dosyayı ekliyorum belki birine yardımcı olur. [oley]
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 25
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Koşullu veri aktarma

İleti#5)  acakilli » 14 Eyl 2018 09:13

Ek unuttum
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 25
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: elfinito, Google Adsense [Bot], Sogou ve 1 misafir

Bumerang - Yazarkafe