Hücre belirleme

[mbattal]

Arkadaşlar lütfen ekli dosyaya bakarak bana yardım edermisiniz.
Teşekkürler

 

[mbattal]

Arkadaşlar yukarıdaki konu benim için önemli yardımcı olursanız sevinirim
teşekkürler

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [B1:B30000]) Is Nothing Then
MsgBox "İmleç B Sütunun Dışındadır", vbCritical, Application.UserName
Exit Sub
End If
[F1].Value = ActiveCell
End Sub

 

[Ali]

Sayfa1'in içine aşağıdaki kodları ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Range("F1") = Target.Value
End Sub

 

[Seyit Tiken]

Mesaj Penceresi ayakbağı oluyorsa böyle bir kod da kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [B1:B30000]) Is Nothing Then Exit Sub
[F1].Value = ActiveCell
End Sub

 

[mbattal]

Arkadaşlar hepinize çok teşekkürler.
(Şu makroyu sizin kadar iyi bilmeyi o kadar çok isterdimki)