Irsaliye yardım

[raburabu]

Merhabalar

aşağıdaki gönderdiğim linkte içerisine ayrıntılı yazdım.

userform1 de firma adına göre arama yaptıramadım
USERFORM2 de seçtiğim ürünü çift tıklayınca textboxa atsın. başka yeni bir ürün seçtiğimde diğer textbox a atsın Bu hususta yardımcı olabilirseniz çok teşekkür ederim.

İyi çalışmalar.


http://s2.dosya.tc/server2/5e8sn0/IRSALIYE_-_Kopya.rar.html

 

[PLİNT]

Merhaba
"Userform1" de bulunan aşağıdaki ilgili başlık altındaki kodlarınızı;

Private Sub TextBox12_Change()
Dim sat, c As Integer
Dim deg1, deg2 As String
ListBox1.RowSource = ""
ListBox1.Clear
c = 0
deg2 = UCase(Replace(Replace(TextBox12, "ı", "I"), "i", "İ"))
For sat = 2 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "B").Text, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
With ListBox1
    .AddItem Cells(sat, 1)
    .List(c, 1) = Cells(sat, 2)
    .List(c, 2) = Cells(sat, 3)
    .List(c, 3) = Cells(sat, 4)
End With
c = c + 1
End If: Next
End Sub

Asıl dosyanızdaki "Userform2" de "Textbox" larınızın adları örnek dosyanızdaki sıra ile aynı ise;

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 13 To 35 Step 2
If Me.Controls("TextBox" & a) = "" Then
Me.Controls("TextBox" & a).Text = ListBox1
[COLOR="Red"]Me.Controls("TextBox" & a + 1).SetFocus[/COLOR]
Exit For
End If
Next
End Sub

Şeklinde değiştirerek sonuç alabilirsiniz.

 

[raburabu]

Merhaba PLİNT

Öncelikle çok teşekkür ederim. Süper oldu. Ellerinize sağlık.

userform2 de listboxtan seçtiklerim sıra ile süpeeeeer geliyor. Ürün kodu yazdığında adet kısmına imleç otomatik olarak gelebilirmi bu her ürün seçtiğimde adet kısmına imlecin gelmesi adet yazınca diğer textbox açılıyor.
Userform1 de firma adına göre arama yaparken çok yavaş yapıyor. Hızlandırma imkanı varmı. MOUSE Tekerleğini çalıştıramadım.

Şimdiden çok teşekkür ederim.

 

[PLİNT]

Merhaba
"Userform2" de İmlecin "Adet" kutucuğuna gitmesi için; yukarıdaki mesajımdaki kırmızı düzeltmeyi
kullanabilirsiniz,
ikinci isteğiniz; döngü yerine arama kodları kullanılarak hız artırılabilir.
(Userform1)

Private Sub TextBox12_Change()
On Error Resume Next
TextBox12 = Evaluate("=büyükharf(""" & TextBox12 & """)")
TextBox12 = Evaluate("=upper(""" & TextBox12 & """)")
Dim c As Integer
Dim bul As Range
Dim fg As String
c = 0
ListBox1.RowSource = ""
ListBox1.Clear
Set bul = Range("b1:b65536").Find("*" & TextBox12 & "*", , , xlPart, xlByRows, xlNext, False, False)
If Not bul Is Nothing Then
    Application.EnableEvents = False
    fg = bul.Address
    Do
If LCase(bul) Like LCase("*" & TextBox12 & "*") Then
     ListBox1.AddItem Cells(bul.Row, 1)
     ListBox1.List(c, 1) = Cells(bul.Row, 2)
     ListBox1.List(c, 2) = Cells(bul.Row, 3)
        c = c + 1
End If
 Set bul = Range("B1:B65536").FindNext(bul)
    Loop While Not bul Is Nothing And bul.Address <> fg
    Application.EnableEvents = True
End If
End Sub

Son sorununuz;
Modülde bulunan kodlar; "Userform1" "caption" boş olduğu için işlem yapmıyor
ve fare tekerleği çalışmıyor bunuda aşağıdaki gibi eklemeler ile yapabilirsiniz:
("Userform1" kod sayfası)

Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 4
.ColumnWidths = "88;260;200;50"
End With
[COLOR="Red"]Me.Caption = Me.Name[/COLOR]
Set liste = Me.ListBox1

Module3.interval1 = 50
Module3.Timer1baslat Me.Caption
[COLOR="Red"]Me.Caption = ""[/COLOR]

Label590.Caption = Format(Now, "dd/mm/yyyy - dddd")
End Sub

 

[raburabu]

Merhaba PLİNT

Emeğinize sağlık çok teşekkür ederim. süper oldu. Süpersin. son hali aşağıdaki linkte ihtiyacı olan kullanabilir.

Birde açılışta bütün excelli gizliyor. Sadece bu çalışma kitabını gizlese olur mu. çünkü başka açık excel kitaplarımda oluyor. Onları da kullanmam gerekiyor.

http://s2.dosya.tc/server2/jv1t1r/IRSALIYE.rar.html