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
-
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.
-
Merhaba,
Ekteki dosyayı inceleyiniz.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
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 Bey çok teşekkür ederim.
Tam istediğim gibi, ayrıca öğrenmişte oldum.
Sağolun
Rica ederim, iyi çalışmalar.
-
Peki Üstad alttaki kodların açıklamasını yapabilirmisiniz?
Teşekkür ederim.
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
-
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.
-
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.
-
Rica ederim Ercan Bey, iyi çalışmalar dilerim.
-
siper olmuş