• DİKKAT

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

Kriterli mükerrer kayıtları say

O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Saygıdeğer Arkadaşlar..!


Tütün ürünleri ile mücadele ile ilgili sahada hergün bir çok işletmeyi denetliyorum, ve bunlarda sigara içilen işletmelere tutanak düzenliyoruz. İşletmeye düzenlenen tutanak eğer ilk kez düzenlenmiş ise uyarı olmakta, eğer ikinci tutanaksa bin tl para cezası, 3. ise iki bin tl 4. ise dörtbin tl ile mülki amire tahakkuk fişi düzenlemem gerekli.
Ancak;
Sigara denetimleri ile ilgili gezilen işletmeye düzenlenen tutanak kaçıncı tutanak olduğunu öğrenmek üzere, İşletme sahibinin T.C. kimlik ve İşletme vergi kimlik numarasına göre ihlal durumunu sorgulamam gerekli....


Şimdiden ilginiz için şükranlarımı sunuyorum....
 

Ekli dosyalar

omeryılmaz' Alıntı:
Saygıdeğer Arkadaşlar..!


Tütün ürünleri ile mücadele ile ilgili sahada hergün bir çok işletmeyi denetliyorum, ve bunlarda sigara içilen işletmelere tutanak düzenliyoruz. İşletmeye düzenlenen tutanak eğer ilk kez düzenlenmiş ise uyarı olmakta, eğer ikinci tutanaksa bin tl para cezası, 3. ise iki bin tl 4. ise dörtbin tl ile mülki amire tahakkuk fişi düzenlemem gerekli.
Ancak;
Sigara denetimleri ile ilgili gezilen işletmeye düzenlenen tutanak kaçıncı tutanak olduğunu öğrenmek üzere, İşletme sahibinin T.C. kimlik ve İşletme vergi kimlik numarasına göre ihlal durumunu sorgulamam gerekli....


Şimdiden ilginiz için şükranlarımı sunuyorum....
Genişletmek için tıkla ...


merhaba
userform'un kod bölümüne
Kod: 
Private Sub CommandButton1_Click()
If TextBox2 = "" Then
TextBox3 = WorksheetFunction.CountIf(Range("D2:D65536"), TextBox1.Text)
Else
TextBox3 = WorksheetFunction.CountIf(Range("E2:E65536"), TextBox2.Text)
End If
End Sub
bu kodu yazarak denermisiniz
 
Ömer bey dosyanız ektedir.
Kolay gelsin.
Eh bu gidişle toplum yavaş yavaş yasaklarada alışacak sanırım.
Sigara yasağına kim ne diyebilirki.
Zaten işin püf noktasıda bu sanıyorum.
iyi çalışmalar.
Kod: 
Private Sub CommandButton2_Click()
Dim sh As Worksheet, sat As Long, k As Range, say As Long
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
OptionButton1.Value = ""
OptionButton2.Value = ""
Set sh = Sheets("KAYIT")
sat = sh.Cells(65536, "D").End(xlUp).Row
If sat < 2 Then Set sh = Nothing: Exit Sub
Set k = sh.Range("D2:D" & sat).Find(CDbl(TextBox1.Text), , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox4.Text = k.Offset(0, 2).Value
    adr = k.Address
    Do
        If UCase(k.Offset(0, 9).Value) = "VAR" Then say = say + 1
        Set k = sh.Range("D2.D" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
Set sh = Nothing
Set k = Nothing
If say > 0 Then
    OptionButton1.Value = True
    Else
    OptionButton2.Value = True
End If
TextBox3.Text = say
say = 0
End Sub
Private Sub CommandButton3_Click()
Dim sh As Worksheet, sat As Long, k As Range, say As Long
TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
OptionButton1.Value = ""
OptionButton2.Value = ""
Set sh = Sheets("KAYIT")
sat = sh.Cells(65536, "E").End(xlUp).Row
If sat < 2 Then Set sh = Nothing: Exit Sub
Set k = sh.Range("E2:E" & sat).Find(CDbl(TextBox2.Text), , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Text = k.Offset(0, -1).Value
    TextBox4.Text = k.Offset(0, 1).Value
    adr = k.Address
    Do
        If UCase(k.Offset(0, 8).Value) = "VAR" Then say = say + 1
        Set k = sh.Range("E2.E" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
Set sh = Nothing
Set k = Nothing
If say > 0 Then
    OptionButton1.Value = True
    Else
    OptionButton2.Value = True
End If
TextBox3.Text = say
say = 0
End Sub
 

Ekli dosyalar

İhsan Tank' Alıntı:
merhaba
userform'un kod bölümüne
Kod: 
Private Sub CommandButton1_Click()
If TextBox2 = "" Then
TextBox3 = WorksheetFunction.CountIf(Range("D2:D65536"), TextBox1.Text)
Else
TextBox3 = WorksheetFunction.CountIf(Range("E2:E65536"), TextBox2.Text)
End If
End Sub
bu kodu yazarak denermisiniz
Genişletmek için tıkla ...


Hocam ilginiz için teşekkürler.
Ancak; "M" sütunundaki İhlal var olanlara göre sayması gerekli...
 
Evren Gizlen' Alıntı:
Ömer bey dosyanız ektedir.
Kolay gelsin.
Eh bu gidişle toplum yavaş yavaş yasaklarada alışacak sanırım.
Sigara yasağına kim ne diyebilirki.
Zaten işin püf noktasıda bu sanıyorum.
iyi çalışmalar.
Kod: 
Private Sub CommandButton2_Click()
Dim sh As Worksheet, sat As Long, k As Range, say As Long
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
OptionButton1.Value = ""
OptionButton2.Value = ""
Set sh = Sheets("KAYIT")
sat = sh.Cells(65536, "D").End(xlUp).Row
If sat < 2 Then Set sh = Nothing: Exit Sub
Set k = sh.Range("D2:D" & sat).Find(CDbl(TextBox1.Text), , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox4.Text = k.Offset(0, 2).Value
    adr = k.Address
    Do
        If UCase(k.Offset(0, 9).Value) = "VAR" Then say = say + 1
        Set k = sh.Range("D2.D" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
Set sh = Nothing
Set k = Nothing
If say > 0 Then
    OptionButton1.Value = True
    Else
    OptionButton2.Value = True
End If
TextBox3.Text = say
say = 0
End Sub
Genişletmek için tıkla ...



Hocam yine imdadıma yetiştin şükranlarımı sunuyorum.
İyiki varsın sağol....
 
omeryılmaz' Alıntı:
İşletme vergi sicil nosuna göre sorgulama yapıldığında neden hata yapmaktadır...
Genişletmek için tıkla ...
ömer bey dosyayı yaptım.
3 nolu mesajdan indirebilirisniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst