- Katılım
- 14 Kasım 2004
- Mesajlar
- 297
- Excel Vers. ve Dili
- microsoft office professional plus 2016
Merhabalar...
Aşağıdaki kodu sitemizden buldum. bu kodda ufak bir değişiklik yapmak istiyorum. şöyleki;
bu kodda aranan değer ve bulunan değerler aynı sayfada bulunuyor. benim bu kodun bulunduğu (sayfa2) sayfanın haricinde "liste" diye bir sayfam daha var bu liste sayfasında b2:e80 hücrelerinde veriler var bu sayfadan verileri alıp bu kodun bulunduğu (sayfa2) sayfaya yazması gerekiyor. çok deneme yaptım ama olmadı. yardımlarınızı bekliyorum teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a20]) Is Nothing Then Exit Sub
For ara = 1 To 20
Range("b" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 2, 0)
Range("c" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 3, 0)
Range("d" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 4, 0)
Range("e" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 5, 0)
If Range("a" & ara) = "" Then
Range("a" & ara).Offset(0, 1) = ""
Range("a" & ara).Offset(0, 2) = ""
End If
Next
End Sub
Aşağıdaki kodu sitemizden buldum. bu kodda ufak bir değişiklik yapmak istiyorum. şöyleki;
bu kodda aranan değer ve bulunan değerler aynı sayfada bulunuyor. benim bu kodun bulunduğu (sayfa2) sayfanın haricinde "liste" diye bir sayfam daha var bu liste sayfasında b2:e80 hücrelerinde veriler var bu sayfadan verileri alıp bu kodun bulunduğu (sayfa2) sayfaya yazması gerekiyor. çok deneme yaptım ama olmadı. yardımlarınızı bekliyorum teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a20]) Is Nothing Then Exit Sub
For ara = 1 To 20
Range("b" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 2, 0)
Range("c" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 3, 0)
Range("d" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 4, 0)
Range("e" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:j"), 5, 0)
If Range("a" & ara) = "" Then
Range("a" & ara).Offset(0, 1) = ""
Range("a" & ara).Offset(0, 2) = ""
End If
Next
End Sub