Düşeyara formülü makrolu

[mrkync]

Arkadaşlar istediğim olay şu:
ocak sayfasındaki d sütununda yazan verilere göre v1 sayfasındaki elementlere bakarak ocak sayfasında değerler kısmına v1 deki değerleri yazacak ve yine v1 sayfasına bakarak laboratuvar kısmındaki verileri gönderilen laboratuvarlar bölümüne yazacak bir makroya ihtiyacım var.
Yardımlarınız için şimdiden teşekkürler

 

[asi_kral]

Merhaba

Option Explicit
Sub değerler()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long
Set S1 = Sheets("ocak"): Set S2 = Sheets("V1")
With WorksheetFunction
For STR = 2 To S1.Cells(Rows.Count, "D").End(xlUp).Row
S1.Cells(STR, "B") = .VLookup(S1.Cells(STR, "D"), S2.Range("A:C"), 2, 0)
S1.Cells(STR, "E") = .VLookup(S1.Cells(STR, "D"), S2.Range("A:C"), 3, 0)
Next: End With
End Sub

Bu kodu deneyiniz_?

 

[monelogg]

Merhaba

Option Explicit
Sub değerler()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long
Set S1 = Sheets("ocak"): Set S2 = Sheets("V1")
With WorksheetFunction
For STR = 2 To S1.Cells(Rows.Count, "D").End(xlUp).Row
S1.Cells(STR, "B") = .VLookup(S1.Cells(STR, "D"), S2.Range("A:C"), 2, 0)
S1.Cells(STR, "E") = .VLookup(S1.Cells(STR, "D"), S2.Range("A:C"), 3, 0)
Next: End With
End Sub

Bu kodu deneyiniz_?

Konuyla alakalı değil fakat örnekte mevcut olduğundan dolayı buradan sormak istiyorum. Kodlardaki iki nokta nerelerde ve nasıl kullanılıyor?

 

[turk-x]

Merhaba monelogg;
Kodlamadaki : işareti kodu tek satırda devam ettirmek için kullanılır.Kodları Daha Derli Toplu Gösterir
Örnek Olarak Msgbox kodunu alt alta yazmanız gerekir

MsgBox Range("A1")
MsgBox Range("b1")
MsgBox Range("C1")

Ama : işareti ile Tek Satır Olarak yazılabilir

MsgBox Range("A1"): MsgBox Range("b1"): MsgBox Range("C1")

Örnektede Olduğu Gibi

Set S1 = Sheets("ocak")
Set S2 = Sheets("V1")

Yazmak Yerine Tek Satırda Yazmak Daha Kullanışlı Olur.

Set S1 = Sheets("ocak"): Set S2 = Sheets("V1")

 

[monelogg]

Merhabalar...
Sayın turk-x çok çok teşekkür ediyorum, emeğinize sağlık...