hücreyi seçince seçime göre başka bir hücreye seçilen hücrenin içeriğini yazdırma

[battlemaster]

buradaki gibi kodladım ama işin içinden çıkamadım

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a As Integer
    
    sat = ActiveCell.Row
    sut = ActiveCell.Column
For a = 4 To 20
  If sat = a Then
    If sut = 2 Then
    Module1.Makro1
    End If
  End If
Next
End Sub

yapmak istediğim müşteri numaralarını seçtiğimde(tıkladığımda)
müşteriler!B4 değerini seçime göre nasıl değiştirebilirim

=İNDİS(müşteriler!B4:B18;[COLOR="Red"]müşteriler!B4[/COLOR];SATIR(A1))

başka çözümler de olabilir yeter ki aynı işlevi görsün

 

[Korhan Ayhan]

Selamlar,

Bence uzun yöntemi seçmişsiniz. Seçim yapınca aşağıdaki kod ile diğer sayfaya bilgiyi aktarabilirsiniz.

"Müşteriler" isimli sayfanızın kod bölümüne uygulayın.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B4:B18")) Is Nothing Then Exit Sub
    Sheets("alışveriş bilgileri").Range("C4") = Target
End Sub

 

[battlemaster]

Korhan Hocam çok teşekkür ediyorum
çok büyük zahmetten kurtuldum sayenizde