hücrede bilgi olunca diğer hücreye yaz

[mutluedenercan]

a 1 den 50 ye kadar her bilgi girişinde d1 de yazı

kolay yolu varmı

teşekkür

 

[İhsan Tank]

a 1 den 50 ye kadar her bilgi girişinde d1 de yazı

kolay yolu varmı

teşekkür

merhaba

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
If Range("A1") <> "" Then Range("D1") = [COLOR="Red"]"a1"[/COLOR]
If Range("A2") <> "" Then Range("D1") = [COLOR="red"]"a2"[/COLOR]
If Range("A3") <> "" Then Range("D1") = "a3"
If Range("A4") <> "" Then Range("D1") = "a4"
If Range("A5") <> "" Then Range("D1") = "a5"
If Range("A6") <> "" Then Range("D1") = "a6"
If Range("A7") <> "" Then Range("D1") = "a7"
If Range("A8") <> "" Then Range("D1") = "a8"
If Range("A9") <> "" Then Range("D1") = "a9"
If Range("A10") <> "" Then Range("D1") = "a10"
If Range("A11") <> "" Then Range("D1") = "a11"
If Range("A12") <> "" Then Range("D1") = "a12"
If Range("A13") <> "" Then Range("D1") = "a13"
If Range("A14") <> "" Then Range("D1") = "a14"
If Range("A15") <> "" Then Range("D1") = "a15"
If Range("A16") <> "" Then Range("D1") = "a16"
If Range("A17") <> "" Then Range("D1") = "a17"
If Range("A18") <> "" Then Range("D1") = "a18"
If Range("A19") <> "" Then Range("D1") = "a19"
If Range("A20") <> "" Then Range("D1") = "a20"
If Range("A21") <> "" Then Range("D1") = "a21"
If Range("A22") <> "" Then Range("D1") = "a22"
If Range("A23") <> "" Then Range("D1") = "a23"
If Range("A24") <> "" Then Range("D1") = "a24"
If Range("A25") <> "" Then Range("D1") = "a25"
If Range("A26") <> "" Then Range("D1") = "a26"
If Range("A27") <> "" Then Range("D1") = "a27"
If Range("A28") <> "" Then Range("D1") = "a28"
If Range("A29") <> "" Then Range("D1") = "a29"
If Range("A30") <> "" Then Range("D1") = "a30"
If Range("A31") <> "" Then Range("D1") = "a31"
If Range("A32") <> "" Then Range("D1") = "a32"
If Range("A33") <> "" Then Range("D1") = "a33"
If Range("A34") <> "" Then Range("D1") = "a34"
If Range("A35") <> "" Then Range("D1") = "a35"
If Range("A36") <> "" Then Range("D1") = "a36"
If Range("A37") <> "" Then Range("D1") = "a37"
If Range("A38") <> "" Then Range("D1") = "a38"
If Range("A39") <> "" Then Range("D1") = "a39"
If Range("A40") <> "" Then Range("D1") = "a40"
If Range("A41") <> "" Then Range("D1") = "a41"
If Range("A42") <> "" Then Range("D1") = "a42"
If Range("A43") <> "" Then Range("D1") = "a43"
If Range("A44") <> "" Then Range("D1") = "a44"
If Range("A45") <> "" Then Range("D1") = "a45"
If Range("A46") <> "" Then Range("D1") = "a46"
If Range("A47") <> "" Then Range("D1") = "a47"
If Range("A48") <> "" Then Range("D1") = "a48"
If Range("A49") <> "" Then Range("D1") = "a49"
If Range("A50") <> "" Then Range("D1") = "a50"
End Sub

bu kodu sayfanın kod bölümüne kopyalayın
her kodda kırmızıya boyadığım yerleri istediğiniz bilgi ile değiştirin.
Not Kod A1:A50 arasında çalışır.

 

[mutluedenercan]

Hocam oldu
Sağolun

 

[İhsan Tank]

Hocam oldu
Sağolun

kolay gelsin
:yazici: