- Katılım
- 14 Haziran 2006
- Mesajlar
- 575
Teşekkürler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
B613456 verisi tabloda x lere göre A1-A2-A5 hücrelerinde var bu durumda siz F16 ya sadece A1 yazmışsınız bu şekilde sadece ilk gördüğünümü yazacak yoksa birleştirerek mi yazacak?
Sorunuzu daha detaylı açıklarmısınız.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
With Target
If .Row < 16 Then Exit Sub
.Offset(0, 1) = ""
If .Value = "" Then Exit Sub
Set c = Range("E4:E11").Find(.Value, , xlValues, xlWhole)
If Not c Is Nothing Then
.Offset(0, 1) = Cells(3, c.End(xlToRight).Column)
Else
MsgBox "Aradığınız Değer Bulunamadı"
End If
End With
End Sub