textboxa göre değer atamak

[DeathMoment]

arkadaşlar istediğim makro ile UserForm1'de Ürün kodu textbox'una girilen değere göre ücret textbox'una değer atanacak (Ürün kodu textboxu listbox şeklinde olabilirse daha iyi olur) ve

Başlama tarihi(textbox10) ile sürenin(textbox5) toplamıda bitiş tarihine(textbox6) yazılacak yani F2 hücresi + G2 hücresi = H2 hücresine yazılacak ancak bu makro ile UserForm1 üzerinden yapılacak.

dosya ektedir yardımcı olabilirseniz sevinirim

 

[Huseyinkis]

arkadaşlar istediğim makro ile UserForm1'de Ürün kodu textbox'una girilen değere göre ücret textbox'una değer atanacak (Ürün kodu textboxu listbox şeklinde olabilirse daha iyi olur) ve

Başlama tarihi(textbox10) ile sürenin(textbox5) toplamıda bitiş tarihine(textbox6) yazılacak yani F2 hücresi + G2 hücresi = H2 hücresine yazılacak ancak bu makro ile UserForm1 üzerinden yapılacak.

dosya ektedir yardımcı olabilirseniz sevinirim

Sanırım ekteki kodları istiyorsunuz

TextBox6 = Format(CDate(TextBox10) + TextBox5, "DD.MM.YYYY")

bu kodu textbox10 ve ListBox1_DblClick işlemlerinin altına koyun.

 

[DeathMoment]

Sanırım ekteki kodları istiyorsunuz

TextBox6 = Format(CDate(TextBox10) + TextBox5, "DD.MM.YYYY")

bu kodu textbox10 ve ListBox1_DblClick işlemlerinin altına koyun.

dediğinizi yaptım oldu peki diğer listboxu nasıl halledebiliriz?

 

[Huseyinkis]

dediğinizi yaptım oldu peki diğer listboxu nasıl halledebiliriz?

Ekteki dosyayı incelermisiniz.

Userform intialize ve combobox2 change kısımlarına kod ekledim.. birde sayfa2 isminde yeni sayfa.

 

[DeathMoment]

Ekteki dosyayı incelermisiniz.

Userform intialize ve combobox2 change kısımlarına kod ekledim.. birde sayfa2 isminde yeni sayfa.

sizden bir kaç şey daha rica edicem eklediğim dosyada sil butonu çalışmıyor denerseniz sizde fark edersiniz onun hakkında da yardımcı olabilir misiniz birde arama bölümünde hiçbir option buttonu seçmeden bütün verilere göre arama yapmayı nasıl sağlayabiliriz yani TC.No seçtiğimizde B sütununa göre arıyor ad soyadı seçtiğimizde C sütununa göre hiçbir şey seçmediğimizde bütün sütunlara göre aramasını nasıl sağlayabiliriz?

 

[Huseyinkis]

sizden bir kaç şey daha rica edicem eklediğim dosyada sil butonu çalışmıyor denerseniz sizde fark edersiniz onun hakkında da yardımcı olabilir misiniz birde arama bölümünde hiçbir option buttonu seçmeden bütün verilere göre arama yapmayı nasıl sağlayabiliriz yani TC.No seçtiğimizde B sütununa göre arıyor ad soyadı seçtiğimizde C sütununa göre hiçbir şey seçmediğimizde bütün sütunlara göre aramasını nasıl sağlayabiliriz?

Sil butonunun altındaki kodlarda if işlemini yanlış yapmışsınız.

If cevap = vbYes Then
Else: Exit Sub
Silinecek_Satir = ListBox1.ListIndex + 2
S1.Rows(Silinecek_Satir).Delete
End If

yukarıdakı kısmı aşağıdaki gibi değiştirin.

If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
S1.Rows(Silinecek_Satir).Delete
Else: Exit Sub
End If


Arama kodlarınıda aşağıdaki gibi değiştirip denermisiniz.

Private Sub ComboBox1_Change()
Dim SÜT As Variant, BUL As Range, SAB As Variant, S1 As Worksheet
Dim SAY As Long, sutun As Long, LSAY As Long, X As Long
On Error Resume Next
SÜT = 0
If ComboBox1 <> Empty Then
ListBox1.RowSource = ""
ListBox1.ColumnCount = 0
If OptionButton1 = True Then SÜT = "B"
If OptionButton2 = True Then SÜT = "C"
If OptionButton3 = True Then SÜT = "D"
With WorksheetFunction
Set S1 = Sheets("DATA")
LSAY = 0
sutun = S1.Cells(1, Columns.Count).End(1).Column
ListBox1.ColumnCount = sutun
ListBox1.AddItem
For SAY = 1 To sutun
ListBox1.List(LSAY, SAY - 1) = S1.Cells(1, SAY)
Next
ListBox1.ColumnHeads = True

If SÜT = 0 Then
Set BUL = S1.Range("A:L").Find("*" & ComboBox1 & "*", , , xlWhole)
Else
Set BUL = S1.Range(SÜT & ":" & SÜT).Find(ComboBox1, , , xlWhole)
End If

If Not BUL Is Nothing Then
SAB = BUL.Address
Do
ListBox1.AddItem
X = 0
For SAY = 1 To sutun
ListBox1.List(LSAY + 1, X) = S1.Cells(BUL.Row, SAY).Value
X = X + 1
Next
LSAY = LSAY + 1

If SÜT = 0 Then
Set BUL = S1.Range("A:L").FindNext(BUL)
Else
Set BUL = S1.Range(SÜT & ":" & SÜT).FindNext(BUL)
End If

Loop While Not BUL Is Nothing And BUL.Address <> SAB
End If
End With
Else
UserForm_Initialize
End If
End Sub

 

[DeathMoment]

teşekkür ederim verdiğiniz kodlar işime yaradı ancak verdiğiniz kodlarda mesela ALİ yazdığımda 3 tane çıkıyor fakat 1 tane ALİ var ve arama kutusunda arama yapıp kutuyu tamamen sildiğimde üstte NO AD SOYAD gibi satır gözükmüyor yardımcı olabilir misiniz.

 

[DeathMoment]

Sil butonunun altındaki kodlarda if işlemini yanlış yapmışsınız.

If cevap = vbYes Then
Else: Exit Sub
Silinecek_Satir = ListBox1.ListIndex + 2
S1.Rows(Silinecek_Satir).Delete
End If

yukarıdakı kısmı aşağıdaki gibi değiştirin.

If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
S1.Rows(Silinecek_Satir).Delete
Else: Exit Sub
End If


Arama kodlarınıda aşağıdaki gibi değiştirip denermisiniz.

teşekkür ederim verdiğiniz kodlar işime yaradı ancak verdiğiniz kodlarda mesela ALİ yazdığımda 3 tane çıkıyor fakat 1 tane ALİ var ve arama kutusunda arama yapıp kutuyu tamamen sildiğimde üstte NO AD SOYAD gibi satır gözükmüyor yardımcı olabilir misiniz.