makroda satır belirtmek

[YILDIZ YAĞMURU]

Aşağıdaki makro aktif sütunda bir hücreye çift tıklayınca o hücrenin içine kırmızı ile belirtilen formülü yazıyor. Ama ben aktif sütunun 3. satırı ile 155 inci satırlarına hepsine birden yazasını istiyorum. yani aktif sütunda her hangi bir hücreye çift tıklayınca formül 3. satırdan 155 inci satıra kadar yazılsın.
satır belirtme yapmak yani yardımcı olurmusunuz ?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell.Column Then

Selection = _
"=IF(ISERROR(VLOOKUP(RC2,INDIRECT(""'""&R2C&""'!b:ı""),8,0)),"""",VLOOKUP(RC2,INDIRECT(""'""&R2C&""'!b:ı""),8,0))"

ActiveCell.Select


End If

End Sub

 

[YILDIZ YAĞMURU]

Yardım edecek bir arkadaş yokmu acaba

yardımcı olacak bir arkadaş yokmu acaba

 

[Korhan Ayhan]

Selection ifadesi yerine aşağıdaki ifadeyi kullanmayı deyin.

Range(Cells(3, Target.Column), Cells(155, Target.Column))

 

[YILDIZ YAĞMURU]

Korhan bey merhaba

Selection ifadesi yerine aşağıdaki ifadeyi kullanmayı deyin.

Range(Cells(3, Target.Column), Cells(155, Target.Column))

çok teşekkür ederim.. fakat bir şeyi atladım sanırım. şimdide tüm sütunlarda çift tıklama çalışıyor. A ve B sütunlarında çalışmaması gerekiyor . yani 3. sütundan sonra çalışmalı makro, yoksa yanlışlıkla A veya B Sütununada çift tıklayınca devreye giriyor ve herşeyi berbat ediyor . 3. sütundan başlatabilirmiyiz acaba

 

[apocalyt]

ilk mesajınızdaki kodda yer alan

If ActiveCell.Column Then
yerine

If Target.Column = 1 Or Target.Column = 2 Then
Exit Sub
Else

kodunu deneyin..

 

[YILDIZ YAĞMURU]

Korhan bey merhaba

ilk mesajınızdaki kodda yer alan

If ActiveCell.Column Then
yerine

If Target.Column = 1 Or Target.Column = 2 Then
Exit Sub
Else

kodunu deneyin..

çok teşekkür ederim

 

[apocalyt]

rica ederim..

 

[Necdet]

Merhaba,

If Target.Column < 3 Then Exit Sub

daha kısa