Listede çift tıklanan satır bilgilerinin form sayfasına aktarımı

[Mesafe]

Forumda yaptığım araştırmalar ve bulduğum örnekler ile bir yere kadar getirebildiğim çalışmamda tek bir sayfaya aktarımı yapabiliyorum. Ama seçim yapıp seçeceğim diğer sayfalardaki formlar üzerine bilgi aktarımını yapamadım. Bu konuda yardımlarınızı rica ediyorum.

 

[mancubus]

örnek olarak... ilgili kısım...

If Sor = vbYes Then
    With Sheets("FORM1")
        .Range("C1").Value = Target.Value
        .Range("C3").Value = Target(1, 0).Value
        .Range("B7").Value = Target(1, 2).Value
        .Range("D6").Value = Target(1, 3).Value
        .Range("E6").Value = Target(1, 4).Value
    End With
    With Sheets("FORM2")
        .Range("A1").Value = Target.Value
        .Range("B3").Value = Target(1, 0).Value
        .Range("B5").Value = Target(1, 2).Value
        .Range("B4").Value = Target(1, 3).Value
        .Range("B7").Value = Target(1, 4).Value
    End With
    With Sheets("FORM3")
        'nereye ne gidecekse yukarıdaki gibi
    End With
    '...
    '...
    '...
End If

 

[Mesafe]

Hocam çok teşekkür ederim. Ama eksik bilgi verdim sanırım, ben bir satırın bilgilerini bütün formlara değil sadece seçeceğim bir forma gitmesini istiyorum, onun için bir örnek userform hazırlamıştım onun gibi birşeyden faydalanıp seçim yapabileceğimi düşünmüştüm.

 

[asi_kral]

Hocam çok teşekkür ederim. Ama eksik bilgi verdim sanırım, ben bir satırın bilgilerini bütün formlara değil sadece seçeceğim bir forma gitmesini istiyorum, onun için bir örnek userform hazırlamıştım onun gibi birşeyden faydalanıp seçim yapabileceğimi düşünmüştüm.

Merhaba
Thisworkbook'taki kodu silin ve bununla değiştirin.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "GIRIS" Then
    Sheets("GIRIS").Select
Else
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("GIRIS").[B2:B10000]) Is Nothing Then Exit Sub
Sor = MsgBox(Target.Value & " İçin Form Hazırlamak İstiyormusunz ?", vbYesNo, Target.Value & " İÇİN FORM HAZIRLANMASI")
If Sor = vbNo Then Exit Sub
UserForm1.Show
End Sub

Userform'un kod bölümüne

Dim asi As Long
'Konu       :   Option Button'da seçtiğim Sayfaya Kayıt
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Private Sub OptionButton1_Click()
Sheets("FORM1").Select
ActiveSheet.[C1] = Sheets("GIRIS").Cells(asi, "B").Value
ActiveSheet.[C3] = Sheets("GIRIS").Cells(asi, "A").Value
ActiveSheet.[B7] = Sheets("GIRIS").Cells(asi, "C").Value
ActiveSheet.[D6] = Sheets("GIRIS").Cells(asi, "D").Value
ActiveSheet.[E6] = Sheets("GIRIS").Cells(asi, "E").Value
End Sub
Private Sub OptionButton2_Click()
Sheets("FORM2").Select
ActiveSheet.[C1] = Sheets("GIRIS").Cells(asi, "B").Value
ActiveSheet.[C3] = Sheets("GIRIS").Cells(asi, "A").Value
ActiveSheet.[B7] = Sheets("GIRIS").Cells(asi, "C").Value
ActiveSheet.[D6] = Sheets("GIRIS").Cells(asi, "D").Value
ActiveSheet.[E6] = Sheets("GIRIS").Cells(asi, "E").Value
End Sub
Private Sub OptionButton3_Click()
Sheets("FORM3").Select
ActiveSheet.[C1] = Sheets("GIRIS").Cells(asi, "B").Value
ActiveSheet.[C3] = Sheets("GIRIS").Cells(asi, "A").Value
ActiveSheet.[B7] = Sheets("GIRIS").Cells(asi, "C").Value
ActiveSheet.[D6] = Sheets("GIRIS").Cells(asi, "D").Value
ActiveSheet.[E6] = Sheets("GIRIS").Cells(asi, "E").Value
End Sub
Private Sub OptionButton4_Click()
Sheets("FORM4").Select
ActiveSheet.[C1] = Sheets("GIRIS").Cells(asi, "B").Value
ActiveSheet.[C3] = Sheets("GIRIS").Cells(asi, "A").Value
ActiveSheet.[B7] = Sheets("GIRIS").Cells(asi, "C").Value
ActiveSheet.[D6] = Sheets("GIRIS").Cells(asi, "D").Value
ActiveSheet.[E6] = Sheets("GIRIS").Cells(asi, "E").Value
End Sub
Private Sub OptionButton5_Click()
Sheets("FORM5").Select
ActiveSheet.[C1] = Sheets("GIRIS").Cells(asi, "B").Value
ActiveSheet.[C3] = Sheets("GIRIS").Cells(asi, "A").Value
ActiveSheet.[B7] = Sheets("GIRIS").Cells(asi, "C").Value
ActiveSheet.[D6] = Sheets("GIRIS").Cells(asi, "D").Value
ActiveSheet.[E6] = Sheets("GIRIS").Cells(asi, "E").Value
End Sub
Private Sub UserForm_Initialize()
asi = ActiveCell.Row
End Sub

Bu kodu kopyalayın ve deneyin.
Not Userform'da kaydet butonu olmadığı için optionbutton'lara yazılmıştır kodlar.
Dosyanız Ekte

 

[Mesafe]

Hocam çok teşekkür ederim, allah sizi buralardan eksik etmesin.
Not: Özellikle kaydet tuşu koymamıştım. optionbutton dan seçim yapılınca işlem tamamlansın istiyordum. Sizde sağolun tam istediğim gibi yapmışsınız.

 

[asi_kral]

Hocam çok teşekkür ederim, allah sizi buralardan eksik etmesin.
Not: Özellikle kaydet tuşu koymamıştım. optionbutton dan seçim yapılınca işlem tamamlansın istiyordum. Sizde sağolun tam istediğim gibi yapmışsınız.

Kolay Gelsin.