Label textbox ekleme

[acar6783]

Private Sub ComboBox1_Change()
Unload Me
Sheets(ComboBox1.Value).Select
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
    Dim Lbl As MSForms.Label, Txt As MSForms.TextBox
 Dim syf As Worksheet
    
     
    
    Set S1 = Sheets(ActiveSheet.Name)
    Son = S1.Cells(1, Columns.Count).End(xlToLeft).Column
    Aralik = 5
    
    ReDim Preserve Txtbx(Son)
    
    Me.ScrollBars = fmScrollBarsVertical
    Me.ScrollHeight = 1000
    
    For X = 1 To Son
        Set Lbl = Me.Controls.Add("Forms.Label.1", "Label" & X)
        With Lbl
            .Left = 10
            .Top = .Top + Aralik
            .Width = 100
            .Height = 18
            .Caption = S1.Cells(1, X)
            .SpecialEffect = fmSpecialEffectEtched
        End With
        
        Set Txt = Me.Controls.Add("Forms.TextBox.1", "TextBox" & X)
        With Txt
            .Left = 120
            .Top = .Top + Aralik
            .Width = 100
            .Height = 18
            .Value = ""
            .SpecialEffect = fmSpecialEffectEtched
            
        End With
        
         If Me.Controls("Label" & X).Caption = "A" Or Me.Controls("Label" & X).Caption = "S" Then
         Me.Controls("Label" & X).Height = 36
         Me.Controls("Textbox" & X).Height = 36
      
         End If
       
    
        Set Txtbx(X).Txtbx = Controls("TextBox" & X)
        
        Aralik = Aralik + Me.Controls("Label" & X).Height
    Next
    
 
For Each syf In Worksheets

    ComboBox1.AddItem syf.Name
     Next
End Sub

Bu şikilde bir nebze olsun çözdüm ama sayfayı seçerek işlemi yapıyorum seçmeden yapamazmıyım?

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[acar6783]

Tamamdır.
Teşekkür ederim.Çok kullanışlı oldu

 

[acar6783]

Private Sub DÜZELT_Click()

For düzeltme = 3 To S1.Cells(Rows.Count, 2).End(xlUp).Row
For tel = 1 To S1.Cells(2, Columns.Count).End(xlToLeft).Column

If S1.Cells(2, tel).Value = "TELEFON" Then

If Me.Controls("TextBox" & tel) = S1.Cells(düzeltme, tel) Then
For yff = 2 To S1.Cells(2, Columns.Count).End(xlToLeft).Column

 S1.Cells(düzeltme, yff).Value = Me.Controls("TextBox" & yff).Text
  Next
End If


 End If

  Next
 

Next

End Sub

Yukarıdaki kod ile düzeltme yapmayı planlıyordum fakat şartlar sağlamasına rağmen sonuçtaki

S1.Cells(düzeltme, yff).Value = Me.Controls("TextBox" & yff).Text

Satırı işlem yapmıyor.

 

[acar6783]

Ekteki örnek dosyada yeni veri kaydı yapıyor fakat düzenleme yapamıyorum yardımcı olabilirmsiniz?

 

[Korhan Ayhan]

Dosyanızda birkaç düzenleme yaptım. Deneyiniz.

 

[acar6783]

Çok teşekkür ederim Hocam Allah razı olsun.Ama nasıl oldu da düzeldi anlamadım.
Değişiklikleri açıklama şansınız var mı?

 

[Korhan Ayhan]

Tam olarak ne yapmak istediğinizi anlayamadığım için tam çözümü veremiyorum. Siz uğraşıyorsunuz yapamadığınız yerde yardım talep ediyorsunuz. Bu arada ben konudan kopuyorum. Konudan kopunca tekrar odaklanmam zaman alıyor. Bu sebeple belkide kodları gereksiz yere uzatıyoruz.

Neyse siz kurcalayarak öğrenmek istediğiniz için konunuz bu şekilde ilerliyor.

Nereleri değiştirdiğime gelince;

Sub Yenile() prosedüründeki son bölümü yani listbox nesnesine veri yükleyen bölümü düzelttim.

Private Sub ListBox1_Click() olayını revize ettim.

Private Sub CommandButton2_Click() olayını yeniden düzenledim.