Tarihleri Kodla Güncelleme

Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Merhaba arkadaşlar; ekli listemde araçlarım var bunların Sigorta Muayene ve Egzos Muayenelerini userform üzerinde ubulunan Commod1 bütünu ile güncellemek istiyorum, ComboBox1 ile userform üzerine aldığım araçların tarihlerini tekrar buraya yazarak güncellemek istiyorum. Bu tarihler dosyamın Liste sayfasının KLMNPO satırlarında dosyayı ekliyorum. Şimdiden herkese teşekkür ederim.
 

Ekli dosyalar

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
PHP:
Private Sub CommandButton1_Click()
Dim Y As Byte, Satir As Integer
    With Sheets("Liste")
        If ComboBox1.ListIndex <> -1 Then
            Satir = ComboBox1.ListIndex + 3
            For Y = 1 To 6
                .Cells(Satir, Y + 10).NumberFormat = "dd.mm.yyyy"
                .Cells(Satir, Y + 10) = CDate(Me("Textbox" & Y))
            Next Y
        End If
    End With
End Sub
 
Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Sayın Ziynettin bey; Elinize sağlık teşekkür ediyorum, çok güzel olmuş, bir isteğim daha olacak zahmet olmaz ise; Seçtiğim aracın yani ... plakalı aracın sigortası yada muayenesi güncellenmiştir mesajı alabilirmiyiz. Teşekkür ederim.
 

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
PHP:
Private Sub CommandButton1_Click()
Dim Y As Byte, Satir As Integer
    With Sheets("Liste")
        If ComboBox1.ListIndex <> -1 Then
            aciklama = "Plaka:" & vbTab & ComboBox1 & vbLf & vbLf & _
                       "Marka:" & vbTab & TextBox7 & vbLf & vbLf & _
                       "Araç Bilgileri güncellensin mi?"
            If MsgBox(aciklama, vbYesNo) = vbYes Then
                Satir = ComboBox1.ListIndex + 3
                For Y = 1 To 6
                    .Cells(Satir, Y + 10).NumberFormat = "dd.mm.yyyy"
                    .Cells(Satir, Y + 10) = CDate(Me("Textbox" & Y))
                Next Y
                MsgBox "Kayıt işlemi tamam.", vbInformation
            Else
                MsgBox "İşlem iptal edildi", vbCritical
            End If
        End If
    End With
End Sub
 

ALTINYAYLA

Altın Üye
Katılım
26 Nisan 2005
Mesajlar
284
Excel Vers. ve Dili
Office 2016 Türkçe
Son kullanılan halini paylaşabilirmisiniz
 
Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Merhabalar, herkese hayırlı günler; Yeni konu açmadım ama devamı şeklinde düşündüm.

Sayın Ziynettin beyin hazırlamış olduğu koda ek olarak YAKIT DURUMU diye bir büton koydum, bununla Userform1 üzerinde bulunan bütonlarla araçlarıma ait tüketilen yakıtları hızlı bir şekilde hesaplamak istiyorum, uzerform1 üzerinde ilk tarih ve son tarih diye belirttim, seçilen araca ait yakıt durumu toplayarak hesaplama bütonu ile TextBox1 nesnesine almak istiyorum, birde YAKIT sayfamdaki bütün yakıtları ComboBox4 bütonu ile seçerek hızlıca TextBox2 nesnesinde görmek istiyorum. Tarihler 30.092.020 şeklinde gözüküyor, bunu turpaktan alınan sistem böyle veriyor ama hücre içi 30092020 şeklinde herkese teşekkür ediyorum. Dosya tekrar ekte.
 

Ekli dosyalar

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
Tarih seçenekli olsun diye forma checkbox eklendi.

*** plaka ve yakıt seçimi yapıldığında işleminiz çalışır.
 

Ekli dosyalar

Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Aaaa Abi çok güzel olmuş istemeden checkbox da güzel düşünülmüş, teşekkür ederim abi
ComboBox1 ve
ComboBox2 ye yazmadan yani listemde bulunan Yakıt sayfamın C2 den aşağı doğru olan tarihlere combolara alsa ben buradan seçsem hızlı olması için bu olur mu? Zahmet olmazsa eğer, teşekkürler.
 
Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Sayın abiler eğer görürse Ziynettin abi, 10 nolu mesajda hazırlanan dosya ek olarak araçların BAKIM ONARIMLARINIDA yaptım, bunun için Userform1 de buna ek yaptım aynı mantıkla kodları düzenlemeye çalıştım, ama bir türlü BAKIM sayfamdaki miktarları userform üzerine alamadım, ekli dosyanın kodunda revize yaparsanız sevinirim. teşekkürler dosyayı yeni hali ile ekliyorum.
 

Ekli dosyalar

Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Sayın abim eline sağlık çok teşekkür ederim. Zahmet verdim.
Abi TextBox2'ye gelen miktarın Formatının örneğini böyle olmasını istiyorum. (1.295,32) olması için senin ikinci için hazırladığın gibi (Git:Bura) yaptım olmadı, birde

Sub Plaka_Yakıt_Topla()
Dim Tarih_1 As Date, Tarih_2 As Date
If CheckBox1.Value = False Then GoTo esgec
If Not IsDate(ComboBox1) And Not IsDate(ComboBox2) Then MsgBox "Tarih Hatası, Lütfen Tarih Giriniz.", vbCritical: Exit Sub
Tarih_1 = ComboBox1.Value
Tarih_2 = ComboBox2.Value
esgec:
For i = 2 To UBound(tbl)
If tbl(i, sut) = aranan Then
If CheckBox1.Value = False Then GoTo pas
If tbl(i, 3) >= Tarih_1 And tbl(i, 3) <= Tarih_2 Then
pas:
toplam = toplam + tbl(i, 5)
End If
End If
Next i

Bura: TextBox2 = Format(toplam, "#,##0.00") 'Bunu ekledim yapmıyor, neden

End Sub

Birde TextBox3,4 ve TextBox5 e gelin veriler. 1,236.56 oluyor, bunun 1.236,56 olmasını istiyorum. Nasıl olur teşekkürler.
 
Katılım
24 Şubat 2009
Mesajlar
1,070
Excel Vers. ve Dili
2016
Abim olmadı çok teşekkür ederim. Gerekte yok böyle olsun, iyi akşamlar ellerine sağlık dert görme.
 
Üst