Merhaba Arkadaşlar,
Makro ile düşeyara yapmaya çalışıyorum.
Sayfa1 ve Sayfa2 nin A sütunlarına kodlara göre düşeyara yapmaya çalışıyorum.
Sayfa2 de düşeyara yapıp Sayfa1 deki verileri almaya çalışıyorum.
Aşağıdaki kodu Sayfa2 de çalıştırdığımda sayfa1 A sütununda boş hücreler var ise veya Sayfa2 ile uyuşmayan kodlar var ise aşağıdaki hatayı alıyorum.
( worksheetfunction sınıfının vlookup özelliği alınamıyor )
veya
Sayfa1 in dolu satır adeti Sayfa2 den eksik ise yani
( Sayfa2 de 50 satır var.)
( Sayfa1 de 49 satır var.)
olunca yine aynı hatayı alıyorum.
( worksheetfunction sınıfının vlookup özelliği alınamıyor )
Boş veya yanlış değer leri atlayıp eşleşenler ile düşeyara yapmam mümkün mü?
İlgili kodum aşağıdadır.
Syg.
Sub DuseyAra()
Dim FazAl As Range
Dim i As Long
Columns("b").Insert
Dim sutunNumarasi As Long
sutunNumarasi = Application.InputBox("Sütun Numarasını Giriniz.", "Microsoft Excel", , , , , , 1)
If sutunNumarasi = 0 Then Exit Sub
For i = 1 To Range("A1048576").End(xlUp).Row
For Each FazAl In Sheets(2).Cells(i, 1)
On Error GoTo hata
FazAl.Offset(0, 1) = WorksheetFunction.VLookup(FazAl, Sheets(1).Range("A1:XFD1048576"), sutunNumarasi, False)
hata: If Err Then MsgBox FazAl.Address & " " & "deki hücre tanımlı değil.":
Next FazAl
Next i
End Sub
Makro ile düşeyara yapmaya çalışıyorum.
Sayfa1 ve Sayfa2 nin A sütunlarına kodlara göre düşeyara yapmaya çalışıyorum.
Sayfa2 de düşeyara yapıp Sayfa1 deki verileri almaya çalışıyorum.
Aşağıdaki kodu Sayfa2 de çalıştırdığımda sayfa1 A sütununda boş hücreler var ise veya Sayfa2 ile uyuşmayan kodlar var ise aşağıdaki hatayı alıyorum.
( worksheetfunction sınıfının vlookup özelliği alınamıyor )
veya
Sayfa1 in dolu satır adeti Sayfa2 den eksik ise yani
( Sayfa2 de 50 satır var.)
( Sayfa1 de 49 satır var.)
olunca yine aynı hatayı alıyorum.
( worksheetfunction sınıfının vlookup özelliği alınamıyor )
Boş veya yanlış değer leri atlayıp eşleşenler ile düşeyara yapmam mümkün mü?
İlgili kodum aşağıdadır.
Syg.
Sub DuseyAra()
Dim FazAl As Range
Dim i As Long
Columns("b").Insert
Dim sutunNumarasi As Long
sutunNumarasi = Application.InputBox("Sütun Numarasını Giriniz.", "Microsoft Excel", , , , , , 1)
If sutunNumarasi = 0 Then Exit Sub
For i = 1 To Range("A1048576").End(xlUp).Row
For Each FazAl In Sheets(2).Cells(i, 1)
On Error GoTo hata
FazAl.Offset(0, 1) = WorksheetFunction.VLookup(FazAl, Sheets(1).Range("A1:XFD1048576"), sutunNumarasi, False)
hata: If Err Then MsgBox FazAl.Address & " " & "deki hücre tanımlı değil.":
Next FazAl
Next i
End Sub