Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next



Sheets(ListBox1.Text).Select

Unload UserForm2

UserForm_Initialize

End Sub

Private Sub UserForm_Initialize()

  

  'ComboBox3.MatchEntry = fmMatchEntryComplete

    For i = 7 To [d65536].End(3).Row

        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then

          ComboBox3.AddItem CStr(Cells(i, 4))

  

      'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih

        

      End If

    Next



'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih

ListBox1.ColumnCount = 11

ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"

ListBox1.ColumnHeads = True

ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1



ComboBox1.RowSource = "Liste!l1:l2"

On Error Resume Next

TextBox21.Text = [e2]

TextBox22.Text = [e4]

TextBox23.Text = [e5]

TextBox60.Text = [C4]

TextBox61.Text = [C5]

TextBox29.Text = [a1]

TextBox24.Text = [g1]

TextBox25.Text = [g2]

TextBox27.Text = [G3]

TextBox63.Text = [G5]

TextBox62.Text = [ý1]

TextBox64.Text = [ý5]

TextBox65.Text = [K4]



'ComboBox1_Change

TextBox21 = Format(TextBox21, "#,##0.00")

TextBox22 = Format(TextBox22, "#,##0.00")

TextBox23 = Format(TextBox23, "#,##0.00")

TextBox60 = Format(TextBox60, "#,##0.00")

TextBox61 = Format(TextBox61, "#,##0.00")

TextBox24 = Format(TextBox24, "#,##0.00")

TextBox25 = Format(TextBox25, "#,##0.00")

TextBox27 = Format(TextBox27, "#,##0.00")

TextBox63 = Format(TextBox63, "#,##0.00")

TextBox62 = Format(TextBox62, "#,##0.00")

TextBox64 = Format(TextBox64, "#,##0.00")

TextBox65 = Format(TextBox65, "#,##0.00")



'TextBox5.MaxLength = 2

End Sub