[Çözüldü] Makro ile Düşeyara

[drejan62]

Merhabalar,
Düşeyara formülünü makroya uyarlayamadım.
Yapmak istediğim Sayfa1 de B sütununda bulunann verileri Sayfa2 de karşılıklarını bularak A, C, D sütunlarına makro ile yazmak.
Teşekkürler.

[Hüseyin Çoban]

Merhaba,

Ekteki dosyayı inceleyiniz.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[drejan62]

Merhaba,

Ekteki dosyayı inceleyiniz.

Hüseyin Bey çok teşekkür ederim.
Tam istediğim gibi, ayrıca öğrenmişte oldum.
Sağolun

[Hüseyin Çoban]

Hüseyin Bey çok teşekkür ederim.
Tam istediğim gibi, ayrıca öğrenmişte oldum.
Sağolun

Rica ederim, iyi çalışmalar.

[drejan62]

Peki Üstad alttaki kodların açıklamasını yapabilirmisiniz?
Teşekkür ederim.

Kod: [Seç]

   If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
            If Target = "" Then Exit Sub
                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then

[Hüseyin Çoban]

Elimden geldiğince açıklamaya çalıştım, umarım öğretici olmuştur.

1- If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
2-            If Target = "" Then Exit Sub
3-                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then



1- Kodları çalışma sayfamızın kod kısmına uyguluyoruz. B2' den B65536. hücrelere veri girildiğinde işlemi çalıştır.
2- If kodlarında kullanılan tamamlayıcı bir işlem diyebiliriz.
3- (Target.Row, "B")) > 0 Then = sayfada B sütununa girdiğimiz veri sıfırdan büyük ise, ("SAYFA1").Range("B:B" = Sayfa1 de B sütununda arat.

[drejan62]

Elimden geldiğince açıklamaya çalıştım, umarım öğretici olmuştur.

1- If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
2-            If Target = "" Then Exit Sub
3-                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then



1- Kodları çalışma sayfamızın kod kısmına uyguluyoruz. B2' den B65536. hücrelere veri girildiğinde işlemi çalıştır.
2- If kodlarında kullanılan tamamlayıcı bir işlem diyebiliriz.

Hüseyin bey,
Teşekkür ederim. Sağolun

3- (Target.Row, "B")) > 0 Then = sayfada B sütununa girdiğimiz veri sıfırdan büyük ise, ("SAYFA1").Range("B:B" = Sayfa1 de B sütununda arat.

[Hüseyin Çoban]

Rica ederim Ercan Bey, iyi çalışmalar dilerim.

[myak]

siper olmuş