sipariş formu

[yavuzadak]

tüm islam aleminin ve www.excel.web.tr forum üyelerinin mübarek ramazan bayramını kutluyorum...

 

[yavuzadak]

çalışma kitabımda 2 ayrı sayfa var "vt" ve "servis"..aşağıdaki kodları "servis" te yaptırtmak istiyorum ama malesef "vt" de yapıyor...yardım pls...

Private Sub ListBox3_Click()
On Error Resume Next
Dim x As Integer
Sheets("servis").Select
x = Sheets("servis").Range("B:B").Cells.Find(what:=ListBox3, LookIn:=xlValues).Row
servisler.Value = ListBox3 'listboxtakini bul için cobobox1 de gösteriyoruz
servisler = Sheets("servis").Cells(x, 2) 'bura yakadar süz için
  Dim bak As Range 'burdan aşşağı bul için
    Sheets("servis").Select
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(servisler.Value, vbUpperCase) Then
            bak.Select
            sirano.Value = ActiveCell.Offset(0, -1).Value
            tarih.Value = ActiveCell.Offset(0, 1).Value
            gruplar.Value = ActiveCell.Offset(0, 2).Value
            urunler.Value = ActiveCell.Offset(0, 3).Value
            miktar.Value = ActiveCell.Offset(0, 4).Value
            bayi.Value = ActiveCell.Offset(0, 5).Value
            personel.Value = ActiveCell.Offset(0, 6).Value
            sebep.Value = ActiveCell.Offset(0, 7).Value
            aciklama.Value = ActiveCell.Offset(0, 8).Value
            ComboBox1.Value = ActiveCell.Offset(0, 9).Value
            Exit Sub
        End If
    Next bak
    servisler.SetFocus
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

 

[yavuzadak]

sorunu buldum "vt" içinde getirtdiğim bi işlem var kodundan kaynaklanmış onu çözdüm ama listbox da aynı isimde sınırsız kayı olacak bulmada sorun yaşıyorum galiba aşagıdaki koddan kaynaklanıyor
nasıl bir fikir öneririsiniz bu konuda?

 If StrConv(bak.Value, vbUpperCase) = StrConv(servisler.Value, vbUpperCase) Then

 

[yavuzadak]

Textbox larımdan birinin boş geçilmemesi gerekiyor nasıl bir kod yazarım acaba?

 

[yavuzadak]

sorumun cevabını buldum arkadaşlar belki sizlerede lazım olabilir.bu arada leventm hocam yokluğun baya büyük eksiklik yani...

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
If TextBox1 = "" Then Cancel = True 
End Sub

 

[yavuzadak]

userform içinde label3 de bir makro çalıştırma imkanım varmı acaba?

 

[Levent Menteşoğlu]

userform içinde label3 de bir makro çalıştırma imkanım varmı acaba?

Bu sorunuzu biraz daha açarmısınız, ne yapmak istiyorsunuz.

 

[yavuzadak]

program hakkında formu açıldığı zaman aşağıdaki makroyu label da çalıştırmak istiyorum hocam...

Dim Counter As Long, LastOpen As String, Msg As String

    Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)
    LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")
    
    Msg = "Çalışma kitabı " & Counter & " kere açıldı."
    Msg = Msg & vbCrLf & "En son açılış: " & LastOpen
    Msg = Msg & vbCrLf & "Programı Hazırlayan: Yavuz Adak."
    MsgBox Msg, vbInformation, ThisWorkbook.Name
    
    Counter = Counter + 1
    LastOpen = Date & " " & Time
    SaveSetting "XYZ Corp", "Budget", "Count", Counter
    SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen

 

[Levent Menteşoğlu]

MsgBox Msg, vbInformation, ThisWorkbook.Name


Yukarıdaki satırı aşağıdaki ile değiştirerek deneyin. (kodu userform initialize olayına yazabilirsiniz)

Label3 = Msg

 

[yavuzadak]

tşk ediyorum levent hocam

 

[yavuzadak]

Private Sub PBaslat_Click()

If PsifreText.Value = Sheets("vt3").Range("Y5").Value Then
Psifre.Hide
Else
Psifre.Hide
MsgBox "                     DİKKAT !!!      HATALI ÞİFRE" & vbCrLf _
& vbCrLf & "Program Þifresi BÜYÜK ve küçük Harflere Duyarlıdır.", , "Hatalı Giriş Yapıldı !"

End If

End Sub

levent hocam burda rakam harici girişleri görüyor ama rakamları görmüyor hata veriyor şifre doğru olmasına rağmen neden olabilir acaba?

 

[abrek16]

Hocam Aydinlatici Bİlgİlerİnİzden Dolayi Çok TeŞekkÜr Ederİm.ben Sİze Ekte Yenİ Yapilanmakta Olan Fİrmamizda Kullanmak İÇİn TaslaĞini HazirladiĞim Bİr Excel ÇaliŞmasi GÖnderİyorum.bunu Benİm İÇİn Bİ Program Halİne DÖnÜŞtÜrebİlİrsenİz Çok Sevİnİrİm.Saygılarımla

 

[abrek16]

Hocam Aydinlatici Bİlgİlerİnİzden Dolayi Çok TeŞekkÜr Ederİm.ben Sİze Ekte Yenİ Yapilanmakta Olan Fİrmamizda Kullanmak İÇİn TaslaĞini HazirladiĞim Bİr Excel ÇaliŞmasi GÖnderİyorum.bunu Benİm İÇİn Bİ Program Halİne DÖnÜŞtÜrebİlİrsenİz Çok Sevİnİrİm.Saygılarımla

Levent Hocam;daha önce başka bir arkadaşa yardımcı olduğunuz çalışma gibi bir şey lazım bana yani ekteki gibi