makro change kodu ile ilgili

[enalbantli]

arkadaşlar ekte excel dosyasında baz isteğim var bana yardımcı olursanız çok teşekkür ederim sizlere bir sayfada birden çok private sub kulanmak istiyorum ama olmuyor ..

 

[Zeki Gürsoy]

Kırmızı hücre değerleri nerden alınacak?

 

[enalbantli]

sayın anemos alınmıcak sadece kodu nasıl yazılır diye onu oğrenmek istedim benim tahminim hepsi private sub worksheet_change olacak ama hepsi hata veriyor denedim olmuyor ben bütün bunları bir sayfada yapmak istiyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$C$32" And [c32] < 10 And [c32] <> "" Then MsgBox "Değer küçüktür."
If Intersect(Target, [c6,c16,c26,c32]) Is Nothing Then Exit Sub
sat = [f1:f65536].Find(Target).Row
Target.Offset(1, 0) = Cells(sat, "g")
End Sub