TL ve KR ayırma sütunda

[Yesilyurtlu]

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Son
If Intersect(Target, [A1,C5]) Is Nothing Then Exit Sub
Dim i As Integer, _
klm As String, _
s
Application.EnableEvents = False
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
klm = Target.Value
s = Split(klm, ",")
For i = 0 To UBound(s)
Target.Offset(0, i) = s(i)
Next i
End If
Application.EnableEvents = True
Son:

End Sub



(*) Kod Siteden Alınmıştır.


Yukarıda yer alan
If Intersect(Target, [A1,C5]) Is Nothing Then Exit Sub
kısmını A1 yazan hücre adresini Q12:Q50 sütununa C5 yazan hücre adresini de S12:S50 sütununa çevirebilir miyiz?

Teşekkür Ederim.

 

[Excelmy]

If Intersect(Target, [A1,C5]) Is Nothing Then Exit Sub
kısmını A1 yazan hücre adresini Q12:Q50 sütununa C5 yazan hücre adresini de S12:S50 sütununa çevirebilir miyiz?

Teşekkür Ederim.

Merhaba

If Intersect(Target, [Q12:Q50,S12:S50]) Is Nothing Then Exit Sub

 

[Yesilyurtlu]

Sayın Kuman;
Yardımınız için teşekkür ederim.