Userform'daki verilerin ilgili sekmeye aktarılması.

[s.savas]

İyi akşamlar dostlar.
Arkadaşlar ekteki sekmede tasarlanmış userform ile bulunan verilerin şablon isimli sekmeye aktarılması gerekiyor.
Yardımcı olacak ustalarıma teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long, k As Byte, sh As Worksheet
Set sh = Sheets("Şablon")
ListBox1.RowSource = vbNullString
TextBox8.Text = FormatCurrency(0)
TextBox9.Text = YaziylaTL(0)
If sh.Range("A3").Value <> ComboBox1.Text Then sh.Range("A5:G65536").ClearContents
sat = sh.Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Sayfa doldu.İşlem İptal Oldu", vbCritical, "UYARI"
    Exit Sub
End If
If TextBox1.Text = "" Then
    MsgBox "Sıra No Boş Olamaz.İşlem İptal Edildi.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
sh.Range("A3").Value = ComboBox1.Text
For k = 1 To 7
    sh.Cells(sat, k).Value = Me.Controls("Textbox" & k).Text
    If IsNumeric(Cells(sat, k).Value) Then Cells(sat, k).Value = Cells(sat, k).Value * 1
Next
ListBox1.RowSource = "Şablon!A5:G" & sat
TextBox8.Text = FormatCurrency(WorksheetFunction.Sum(Range("F5:F65536")))
If IsNumeric(TextBox8.Text) Then
    TextBox9.Text = YaziylaTL(CDbl(TextBox8.Text))
    Else
    TextBox9.Text = YaziylaTL(0)
End If

MsgBox "Kayıt girildi", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

 

[alptun20]

Dosyanız ektedir. İyi çalışmalar.

 

[s.savas]

Evren hocam çok teşekkür ederim.
Şablona aktarılan verilerden F sütununa aktarılan verilerin toplamını veya ListBox1e alınan verilerden Tutarların toplamını Textbox8' ve Textbox8'de ki veriyi de yazıyla Textbox9 da gösterebilirmiyiz.

 

[s.savas]

Dosyanız ektedir. İyi çalışmalar.

Üstat teşekkür ederim, ancak ekteki dosyada farklı bişey göremedim.

 

[Orion1]

Evren hocam çok teşekkür ederim.
Şablona aktarılan verilerden F sütununa aktarılan verilerin toplamını veya ListBox1e alınan verilerden Tutarların toplamını Textbox8' ve Textbox8'de ki veriyi de yazıyla Textbox9 da gösterebilirmiyiz.

dosyayı 2nci mesajda güncelledim.

 

[s.savas]

Teşekkür ederim üstat.
Texbox9'un yazıyla formatını büyük harfle nasıl yaptınız, orasını anlayamadım.

 

[s.savas]

Hocam özür dilerim.
3.modülü eklemişsiniz.

 

[Orion1]

Teşekkür ederim üstat.
Texbox9'un yazıyla formatını büyük harfle nasıl yaptınız, orasını anlayamadım.

Evet şimdi gördüm
siz yaz isminde bir fonksiyon kullanmışsınız sanırım.
Ben ise yaziyla ve YaziylaTL fonksiyonlarını beraber kullandım.
Bu fonksiyonlar sizde yoktu bende vardı.
Ben modül3 e ekledim. bu fonksiyonları ve textboxlarda kullandım.
Textbox9 da yani.

 

[s.savas]

Hocam ComboBox1'e ekstra bir özellik eklenebilirmi.
Şöyle ki; ComboBox1 de farklı bir seçim yapılınca Şablondaki ve dolayısıyla ListBox1 deki veriler temizlensin.
Çünkü ComboBox1'de farklı bir firma seçilince eğer şablonda veriler varsa onlara ekleme yapıyor.

 

[Orion1]

Hocam ComboBox1'e ekstra bir özellik eklenebilirmi.
Şöyle ki; ComboBox1 de farklı bir seçim yapılınca Şablondaki ve dolayısıyla ListBox1 deki veriler temizlensin.
Çünkü ComboBox1'de farklı bir firma seçilince eğer şablonda veriler varsa onlara ekleme yapıyor.

Bunu anlamadım.
Listboxtaki veriler syafdan rowsource yöntemi ile alınıyor.

 

[s.savas]

Hocam şöyle örneklersek;
ComboBox taki ilk firmayı seçip, firmanın malzemelere olan tekliflerini ve fiyatlarını girdikten sonra, tekrar ComboBoxtan farklı bir firma seçip işleme devam edersek bir önceki firmanın bilgilerine kaldığı yerden ekleme yapıyor.
Bunun önüne geçmek için ComboBox tan farklı bir firma seçince şablondaki verilerin silinmesi gerekiyor.

 

[Orion1]

Hocam şöyle örneklersek;
ComboBox taki ilk firmayı seçip, firmanın malzemelere olan tekliflerini ve fiyatlarını girdikten sonra, tekrar ComboBoxtan farklı bir firma seçip işleme devam edersek bir önceki firmanın bilgilerine kaldığı yerden ekleme yapıyor.
Bunun önüne geçmek için ComboBox tan farklı bir firma seçince şablondaki verilerin silinmesi gerekiyor.

Dosayayı günceledim.
2 nolu mesajdan indirebişirsiniz.

 

[s.savas]

Evren hocam ilginize ve emeğinize teşekkür ediyorum.
Şablondaki buton ile çağrılan userformda Textbox8 ve Textbox9 da veriler istenildiği formatta görüntüleniyor.
Ancak userform, fiyatlar isimli sekmedeki buton ile çağrıldığında Textbox8 ve Textbox9 boş görünüyor.

 

[Orion1]

Evren hocam ilginize ve emeğinize teşekkür ediyorum.
Şablondaki buton ile çağrılan userformda Textbox8 ve Textbox9 da veriler istenildiği formatta görüntüleniyor.
Ancak userform, fiyatlar isimli sekmedeki buton ile çağrıldığında Textbox8 ve Textbox9 boş görünüyor.

Dosyayı günceledim.2 numaralı mesajdan indirebilirsiniz.

 

[s.savas]

Dosyayı günceledim.2 numaralı mesajdan indirebilirsiniz.

Teşekkür ederim Evren hocam.

 

[Orion1]

Teşekkür ederim Evren hocam.

Rica ederim.

 

[s.savas]

Evren hocam aynı çalışma için küçük bir ricam daha olabilirmi.
Son_Dolu_Satır mantığına göre;
E:sütununa TOPLAM yazdıralım,
F:sütununa F5 hücresinden itibaren toplam alma
G:sütununada yazı ile yazılmasını sağlayabilirmiyiz.

 

[s.savas]

Bütün forum sakinlerine iyi akşamlar diliyorum.
Evren hocam aşağıdaki kodu, ekteki belgede gösterildiği üzere OptionButton'lara göre tekrar düzenleyebilirmiyiz.

OptionButton1 işaretli ise TexBox1 de yazılı sıra numarası İlaç_Listesi isimli sekmede aransın.
OptionButton2 işaretli ise TexBox1 de yazılı sıra numarası Malzeme_Listesi isimli sekmede aransın.

Private Sub TextBox1_Change()
Dim k As Range, sh As Worksheet, sat As Long
Set sh = Sheets("Malzeme_Listesi")
sat = sh.Cells(65536, "A").End(xlUp).Row
TextBox2.Text = ""
TextBox3.Text = 0
TextBox4.Text = 0
If TextBox1.Text = "" Then Exit Sub
Set k = sh.Range("A3:A" & sat).Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox3.Text = k.Offset(0, 2).Value
    TextBox4.Text = k.Offset(0, 3).Value
End If
End Sub

 

[Orion1]

Dosyanız ektedir.

Sub suz_59()
Dim k As Range, sh As Worksheet, sat As Long
If OptionButton2.Value = True Then Set sh = Sheets("Malzeme_Listesi")
If OptionButton1.Value = True Then Set sh = Sheets("İlaç_Listesi")
sat = sh.Cells(65536, "A").End(xlUp).Row
TextBox2.Text = ""
TextBox3.Text = 0
TextBox4.Text = 0
If TextBox1.Text = "" Then Exit Sub
Set k = sh.Range("A3:A" & sat).Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox3.Text = Format(k.Offset(0, 2).Value, "#,##0")
    TextBox4.Text = k.Offset(0, 3).Value
End If
End Sub