Labelı tıklandığında kutu açılması

[TİKOS]

Arkadaşlar,
dosyada açıklama yaptım. Yardımınızı rica ediyorum.
Teşekkürler

 

[hamitcan]

Private Sub Label22_Click()
ii = 2
For i = 1 To 6
    ii = ii + 1
    istmalzeme.Controls("TextBox" & i) = Format(Sheets("MALİYET").Cells(ii, "d").Value, "#,##0.00")
Next
istmalzeme.Show
End Sub

 

[TİKOS]

Hamitcan hocam teşekkürler,
dosya üstünde yapmanızı rica etsem.
yapamadım

 

[hamitcan]

Eki inceleyin.