İkİ Tarİh Arasinda SÜzme

[win_kjh]

üstatlar merhaba
ekteki dosyada bir userform oluşturdum
bu usrformda iki adet takvim var.ilk önce malzeme adı seçip daha sonra tarihleri seçtiğimde açılan userformda iki tarih arasındaki işlemleri(giriş çıkış kalan)görebilirmiyim.
yardımlarınız için teşekkürler...

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim hcr As Range
ReDim myarr(1 To 7, 1 To 1)
UserForm3.ListBox1.Clear
If ComboBox1.Value = "" Then Exit Sub
For Each hcr In Range("C2:C" & Cells(65536, "C").End(xlUp).Row)
    If CDate(hcr.Value) >= Calendar1.Value And _
    CDate(hcr.Value) <= Calendar2.Value And ComboBox1.Value = hcr.Offset(0, -1).Value Then
        a = a + 1
        ReDim Preserve myarr(1 To 7, 1 To a)
        For i = 1 To 7
            myarr(i, a) = hcr.Offset(0, i - 2)
        Next i
        a = a + 1
    End If
Next hcr
UserForm3.ListBox1.Column = myarr
UserForm3.Show
End Sub

 

[win_kjh]

Evren bey teşekkür ederim

 

[Orion1]

Evren bey teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[win_kjh]

Evren bey tekrar merhaba
kusura bakmayın benim dün akşam upload ettiğim dosyadaki userformda takvim vardı fakat şu an yok sanırım problem oldu tekrar nasıl takvim koyabilirim.takvimi yine forumdan almıştım fakat bulamadım.

 

[hayri tekin]

Sn.Evren hocam
bu dosyada DÜĞME1 e basınca

"Could not load objects because they are not available on this machine"
hatası alıyorum.Tamam deyince de makroda

CDate(hcr.Value) <= Calendar2.Value And ComboBox1.Value = hcr.Offset(0, -1).Value Then

satırı hata veriyor.Nedeni nedir acaba ?
saygılar

 

[BG]

Merhaba

Evren bey tekrar merhaba
kusura bakmayın benim dün akşam upload ettiğim dosyadaki userformda takvim vardı fakat şu an yok sanırım problem oldu tekrar nasıl takvim koyabilirim.takvimi yine forumdan almıştım fakat bulamadım.

Alt+f11 tuşlarına basın vba ekranında Tools/references/ Microsoft calendar control seçeneğini işaretleyin.

 

[BG]

ayrıca vba ekranında toolbox araç çubuğu üzerinde sağ tuşa basın, Additional controls, veya Tools / Additional controls menüsünden calendar control seçeneğini işaretleyerek toolbox ınıza bu nesneyi ekleyebilirsiniz.

 

[win_kjh]

Ariza Takİp Ve Stok Programi

merhaba
ekteki dosyada bazı problemlerim var.
1-arıza kayıt userformunda kayıt yaptığımda dtpicker1 hatası veriyor.
2-arıza kayıt userformunda yazdıklarım arıza sheetine kaydoluyor.ama ben aynı zamanda bazı bilgileri giriş sheetine kaydetmek te istiyorum.
arıza kayıt userformundaki ;
a)işlem tarihi-
b)kullanılan malzeme adı-
c)parça adedi-
d)teknisyen-
giriş formunda şu karşılıklara yazılacak.
a)işlem tarihi
b)malzeme adı
c)çıkış adedi
d)teslim eden-alan
bunları yapabilirmiyiz .

kolay gelsin...

 

[win_kjh]

dosya ekte

dosyayı göndermeyi unutmuşum

 

[win_kjh]

ilave

birde arıza stok userformunda makine no yu yazınca parkur sayfasındaki numaranın karşısındaki bilgiler sırasıyla
marka
makine tipi
modeli
imal tarihi
kullanıldığı yer
üzerindeki aparat

userformdaki yerlerine gelecek.
olabilir mi?_