Aktif hücreye veri aktarmada sutun kontrolu

[kemal turan]

Merhaba,
Oluşturduğum userformdan aktif hücreye veri gönderiyorum.
İstek kodum seçilen hücre "B" sutununda değilse veri aktarmasın
Teşekkür ederim.

ActiveCell.Value = Label2.Caption

 

[kemal turan]

merhaba,
Kodu Korhan hocamın bir cevabından kendime uyarladım.
Teşekkür ederim.

Private Sub Label2_Click()
If ActiveCell.Column = 2 Then
ActiveCell.Value = Label2.Caption
Else
MsgBox "yanlış sutuna veri girmek istiyorsunuz."
End If
Unload UserForm1
End Sub