DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Dizi = Split(Target.Offset(0, -1), Chr(10))
Target.Offset(0, 1) = Dizi(Target - 1)
GoTo Devam
Son:
Target.Offset(0, 1) = ""
Devam:
End Sub
Sn Necdet hocam şöyle bir alternatifde olabilir mi? Veri doğrulamadan liste seçilip hücreye liste eklenir ve istenilen veri seçimi yapılabilir..Hücreye çoklu veri girişi yaparak gerektiğinde bir tanesini seçmek istiyorum.