Işaretlediğim hücredeki değeri b1'e yazdırma

[M.ACAR]

Forum'daki herkese kolay gelsin,ekli dosyada c sütunundaki hücrenin üzerine gittiğim zaman solundaki hücrede bulunan rakamın b1 hücresine yazdırılmasını istiyorum,bunun için nasıl bir formül uygulayabilirim.

 

[fedeal]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c16:c65000]) Is Nothing Then Exit Sub
On Error GoTo son
Cells(1, 2).Value = Cells(Target.Row, Target.Column - 1).Value
son:
End Sub

dosyanız ekte iyi çalışmalar.(kodlar sayın ozgretmen den uyarlama kendisine teşekkürler.)

 

[M.ACAR]

Teşekkürler Emrah ÇANAKKALE,Virüs algılandı nedeni ne olabilir makro ile ilgili bir neden olabilir mi?

 

[fedeal]

Dosyayı NOD32 ile taradım problem yok bende Makroyla ilgili olmaması lazım.
Dosyayı açamadıysanız. kendi çalışmanıza ilgili sayfanın sayfa sekmesi üzerine sağ tıklayıp kod görüntüleyi seçin açılan sayfaya kodları yapıştırın.

 

[M.ACAR]

Formülleri aldım,sadece söylememdeki sebep bilginiz olsun diye söylüyorum.

 

[fedeal]

teşekkür ederim şimdi başka bir antivir indiriyorum kontroledeyim.