Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 09 Aralık 2010, 18:11:11

Başlık: [Çözüldü] Makro ile Düşeyara
Gönderen: drejan62 - 09 Aralık 2010, 18:11:11

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.

Başlık: Ynt: Makro ile Düşeyara
Gönderen: Hüseyin Çoban - 09 Aralık 2010, 19:28:55

Merhaba,

Ekteki dosyayı inceleyiniz.

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

Başlık: Ynt: Makro ile Düşeyara
Gönderen: drejan62 - 10 Aralık 2010, 09:29:46

Alıntı yapılan: Hüseyin Çoban - 09 Aralık 2010, 19:28:55

Merhaba,

Ekteki dosyayı inceleyiniz.

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

Başlık: Ynt: Makro ile Düşeyara
Gönderen: Hüseyin Çoban - 10 Aralık 2010, 09:32:54

Alıntı yapılan: drejan62 - 10 Aralık 2010, 09:29:46

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

Rica ederim, iyi çalışmalar.

Başlık: Ynt: Makro ile Düşeyara
Gönderen: drejan62 - 10 Aralık 2010, 09:47:20

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

Başlık: Ynt: Makro ile Düşeyara
Gönderen: Hüseyin Çoban - 10 Aralık 2010, 10:00:07

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.

Başlık: Ynt: Makro ile Düşeyara
Gönderen: drejan62 - 10 Aralık 2010, 10:08:26

Alıntı yapılan: Hüseyin Çoban - 10 Aralık 2010, 10:00:07

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.

Başlık: Ynt: Makro ile Düşeyara
Gönderen: Hüseyin Çoban - 11 Aralık 2010, 11:10:58

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

Başlık: Ynt: [Çözüldü] Makro ile Düşeyara
Gönderen: myak - 02 Mart 2012, 18:07:25

siper olmuş