Makroda yan yana yazılan bilgileri alt alta göstermek

[burj_11]

Merhabalar,

ekte sabah Evren Beyin düzelttiği kod var. şimdi istediğim şey; sheet 2 deki bir row da bulunan bilgilerin düzeltilmesi için row tıklandığında o rowdakı bılgılerin direkt sheet 1 deki yere geri donmesi ve duzeltmenın sheet 1 de yapılabılmesi
teşekkurler

 

[burj_11]

Aşağıdaki kod sadece 2. satır için çalışıyor. Satır sayısının rowun üstü tıklanınca algılanmasını nasıl sağlayabilirim?



Sub güncelleme()


Dim sat As Long, i As Byte
Sheets("Sheet2").Select
sat = 2
If sat >= 65533 Then
MsgBox "Sayfa2'de Satır doldu.Başka kayıt yapamazsınız..!!", vbCritical, "UYARI"
Exit Sub
End If
For i = 5 To 18
Sheets("Sheet1").Cells(i, "C").Value = Sheets("Sheet2").Cells(sat, i - 3).Value
Next i
MsgBox "Aktarma Gerçekleşti..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[zafer]

Merhaba


sat = ActiveCell.Row

Size aktif olan hücrenin satır numarasını verir.

 

[burj_11]

zafer cok sağol.

peki macroyu o sayfada çalıştırmak için güncelle butonu yaratmak istıorum onu nasıl yapıcam?

sabah evren bey bu konuda yardımcı oldu ama nası yaptığından bahsetmedi.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sat As Long, i As Byte
sat = Cells(65536, "B").End(xlUp).Row
If sat = 1 Then Exit Sub
If Intersect(Target, Range("B2:O" & sat)) Is Nothing Then Exit Sub
For i = 2 To 15
    Sheets("Sheet1").Cells(i + 3, "C").Value = Cells(ActiveCell.Row, i).Value
Next i
Cancel = True
End Sub