Userforum veri gelmesi

[TİKOS]

Arkadaşlar ,
Dosyada açıkladım.
yardımınızı bekliyorum.
teşekkürler

 

[Skorpiyon]

Sayın TİKOS,

hammadde formunuzun Activate olayına aşağıdaki gibi yazarak veriyi getirebilirsiniz.
Ama Listbox yerine Textboxlar kullanmanız gerekecek.

Private Sub UserForm_Activate()
TextBox1.Value = Sheets("Malzeme").Range("C4")
TextBox2.Value = Sheets("Malzeme").Range("C5")
.....
.....
.....
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub Label9_Click()
hammadde.ListBox1.Column = Application.Transpose(Sheets("Malzeme").Range("C4:C9").Value)
hammadde.Show
End Sub

 

[TİKOS]

uzman arkadaşlarım,
çok teşekkürler
ellerinize sağlık

 

[Orion1]

uzman arkadaşlarım,
çok teşekkürler
ellerinize sağlık

Benim yaptığım dosyayada baktınızmnı?

 

[TİKOS]

evren hocam baktım onu kullanacağım. teşekkürler
Sizden ricam mümkünse label'a bastığımda yukarıdan aşağıya doğru statusbarı kolon gibi yapabilmemiz mümkün mü , yani veriler yukarıdan aşağıya malzeme sheetindeki gibi.
Yaptığınız işimi rahatlıkla görecek , dediğim gib olsa daha şık olur diye düşünüyorm.
Çok teşekkürler
Şaban hocamada teşekkürler

 

[Orion1]

evren hocam baktım onu kullanacağım. teşekkürler
Sizden ricam mümkünse label'a bastığımda yukarıdan aşağıya doğru statusbarı kolon gibi yapabilmemiz mümkün mü , yani veriler yukarıdan aşağıya malzeme sheetindeki gibi.
Yaptığınız işimi rahatlıkla görecek , dediğim gib olsa daha şık olur diye düşünüyorm.
Çok teşekkürler
Şaban hocamada teşekkürler

Sanırım statüs bar dikey kullanılamıyor.Bunun yerine labeller kullanabilirsiniz dikey isterseniz.

 

[TİKOS]

textboxlara verilerin gelmesi

Evren hocam,
sizden ricam bu dosyada Direk işçilik maliyeti labelına tıklayınca çıkan forma işçilik miktarlarının Malzeme fiyat sheetinden gelmesini istiyorum. Yardım edermisiniz.
teşekkürler

 

[Orion1]

Evren hocam,
sizden ricam bu dosyada Direk işçilik maliyeti labelına tıklayınca çıkan forma işçilik miktarlarının Malzeme fiyat sheetinden gelmesini istiyorum. Yardım edermisiniz.
teşekkürler

Dosyanız ektedir.

Private Sub Label16_Click()
Dim i As Byte
For i = 13 To 20
    iscilik.Controls("TextBox" & i - 12).Value = Format(Sheets("Malzeme Fiyat"). _
    Cells(i, "C").Value, "#,##0.000000")
Next i
iscilik.Show
End Sub