• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

koşullu combobox

Y

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,673
Excel Vers. ve Dili
excel2016
Merhaba arkadaşlar istediğim şu sayfa2 deki plakaları combobox1 e getirmek istiyorum fakat kiralıklar veya resmiler olarak combobox4 yardımıyla ayırd etmek istiyorum şöyle combobox4 te kiralık yazarsa sadece kiralık plakalar resmi yazarsa resmi plakalar gelsin istiyorum yardımınız için şimdiden teşekkürler.
Ekli dosyayı görüntüle GÜNLÜK AKARYAKIT ÇIKIŞIxx.xlsm
 
Dosyanız ektedir.:cool:
Kod: 
Private Sub ComboBox1_Click()
Dim sh As Worksheet
Sheets("Sayfa2").Select
Set sh = Sheets("Suz")
ListBox1.RowSource = ""
sh.Range("A:E").ClearContents
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=ComboBox1.Value
Range("A1").CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = "Suz!A2:E" & sonsat
End Sub
 

Ekli dosyalar

Sayın Orıon ben tam anlatamadım özür dilerim ama benim hazırladığım userform içinde combobox4 te resmi yazarsa combobox1 de resmi plakaların görünmesini istemiştim.
 
yanginci34' Alıntı:
Sayın Orıon ben tam anlatamadım özür dilerim ama benim hazırladığım userform içinde combobox4 te resmi yazarsa combobox1 de resmi plakaların görünmesini istemiştim.
Genişletmek için tıkla ...

Dosyanız ektedir.:cool:
Kod: 
Private Sub ComboBox4_Click()
Set sh = Sheets("Sayfa2")
ComboBox1.Clear
For i = 2 To sh.Range("A65536").End(3).Row
If sh.Range("A" & i) = ComboBox4 Then
ComboBox1.AddItem sh.Range("B" & i)
End If
Next
On Error Resume Next
ComboBox1.ListIndex = 0
End Sub
 

Ekli dosyalar

Üstadlarım sayenizde güzel bir çalışma oldu minnettarım hepinize yalnız sizlerden bir isteğim var şöyle ki ben şartlı toplam almak istiyorum günlük harcanan motorin litresini ama o günün tarihli, resmi ve kiralık olarak ayrılmasını istiyorum şimdiden teşekkürler.
 
Sayın Orion sorunum ile ilgili yapabileceğiniz birşey varmı acaba?
 
yanginci34' Alıntı:
Üstadlarım sayenizde güzel bir çalışma oldu minnettarım hepinize yalnız sizlerden bir isteğim var şöyle ki ben şartlı toplam almak istiyorum günlük harcanan motorin litresini ama o günün tarihli, resmi ve kiralık olarak ayrılmasını istiyorum şimdiden teşekkürler.
Genişletmek için tıkla ...

Sayfa2 de miktarlar yok.Nasıl yapacaz?
 
veri sayfasında olacak ve ben ı sütununa resmi veya kiralık olarak yazdıracağım.
 
Resmi ve kiralık olarak ayrılması için nereye bakılcak.Hangi sütun baz alınacak?Çünkü veri sayfasında bu başlılar yok!
 
I Sütunu yani araç durumu başlığından baz alınacak ben o boş yerlere resmi veya kiralık yazacam Üstadım.
 
Veri sayfasında I sütununda bir şey yok,Yazmamışsınız,KİRALIK-RESMİ diye
 
Dosyanız ektedir.:cool:
Kod: 
Option Base 1
Sub toplam59()
Dim sh As Worksheet, sonsat As Long, i As Long, z As Object
Dim liste(), myarr(), deg As String, n As Long
Set sh = Sheets("TOPLAM")
Sheets("VERİ").Select
sonsat = Cells(Rows.Count, "E").End(xlUp).Row
liste = Range("E2:I" & sonsat).Value
ReDim myarr(1 To 3, 1 To UBound(liste))
sh.Range("A2:C" & Rows.Count).ClearContents
Set z = CreateObject("Scripting.dictionary")
Application.ScreenUpdating = False
For i = 1 To UBound(liste)
    deg = Format(liste(i, 1), "dd.mm.yyyy") & liste(i, 5)
    If Not z.exists(deg) Then
        n = n + 1
        z.Add deg, n
        myarr(1, n) = liste(i, 1)
        myarr(3, n) = liste(i, 5)
    End If
    myarr(2, z.Item(deg)) = myarr(2, z.Item(deg)) + liste(i, 4)
Next i
Erase liste
If z.Count > 0 Then
    ReDim Preserve myarr(1 To 3, 1 To z.Count)
    sh.Range("A2").Resize(z.Count, 3) = Application.Transpose(myarr)
End If
Application.ScreenUpdating = True
Set z = Nothing: Erase myarr
sh.Select
Set sh = Nothing
MsgBox "İşlem tamamlnadı." & vbLf & "evrengizlen@hotmail.com"

End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst