Mause işaretcisinin aynı hücrede kalması

[M.ACAR]

Ekli dosya'da metraj proğramı üzerinde çalışyorum,C sütununu mause ile işaretlediğim zaman yanındaki B sütununda yazılı olan rakamı a1 hücresine veriyor,A1 hücresindeki sayının değişmesi ile 16. satırda bulunan sarı renkli hücrelerdeki değerler parçanın durumuna göre değişiyor,yani parçada hangi değerleri gireceğimi daha rahat bulma imkanı sağlıyor,fakat şimdi kullandığım formülde c sütununu işaretlediğim zaman işaretçi istemdışı olarak d sütununa gidiyor,işaretçinin C sütununda kalması için nasıl bir formül girilmelidir.

 

[fedeal]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [A17:V650]) Is Nothing Then Exit Sub
On Error GoTo son
Cells(1, 2).Value = Cells(Target.Row, Target.Column - 1).Value
son:


If Target.Column = 3 And Target.Value <> "" And Target.Value <> "PARÇA ADI" Then
Cells.Interior.ColorIndex = xlNone
If Cells(1, 1) = "." Then Exit Sub
Range("A" & ActiveCell.Row & ":V" & ActiveCell.Row).Interior.ColorIndex = 3
Sheets("METRAJ").Shapes("Resim").Delete

Sheets("Resim").Shapes(Target(1)).Copy
Range("a2").PasteSpecial
Selection.Name = "Resim"
'Target.Offset(0, 1).Select
End If
End Sub
o işlemi koddaki bu satır yapıyor silerseniz yapmaz.
'Target.Offset(0, 1).Select
bu koddaki rakamları oynayarak yani 1'i sıfır yaparsanız devamlı seçeceginden calışma kitlenebilir..

 

[M.ACAR]

B sütunun da yapmak istediğim aslında oluyor,neden C sütununda olmuyor anlamadım?

 

[M.ACAR]

Sayın :fedeal biliyordum,sizin yardımcı olacağınızı ,çok teşekkür ederim.

 

[fedeal]

ricaederim,iyi çalışmalar.