Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-01-2014, 21:34   #1
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan Koşula Göre Benzersizleri Sayma

Merhabalar,

Ekteki Çalışma kitabını Veri Sayfası olarak düşünelim. Veri (satısay) Çalışma Sayfasının bulunduğu Aynı Klasörde başka bir çalışma kitabına(ismi RAPOR olsun),

B sütunundaki isimlerden birini kod içinde tanımladığımda sadece o isimlerin bulunduğu satırdaki E hücresinde bulunan müşterileri benzersiz olarak sayarak mesela A36 hücresine yazsın.

Dosyam ektedir.

http://www.dosya.tc/server22/ZfIpaD/sat_rsay.xlsx.html

Not: Makro ile rica ediyorum.

Teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx satırsay.xlsx (13.7 KB, 12 Görüntülenme)

Bu mesaj en son " 13-01-2014 " tarihinde saat 21:42 itibariyle turanb tarafından düzenlenmiştir....
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2014, 21:55   #2
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Örneğin aşağıdaki kodun içine benzersiz sayacak kodu yerleştirebilir miyiz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
    Dim DosyaYoluAdi As String
    Dim Syf As Worksheet
    Dim Dosya As Workbook
    
    DosyaYoluAdi = "C:\Users\term\Desktop\Makro Raporlar\Veri.xls"
    Set Dosya = Workbooks.Open(DosyaYoluAdi)
    Set Syf = Dosya.Sheets("Sayfa1")
    
    For i = 3 To Syf.Cells(Rows.Count, "A").End(3).Row
        If Syf.Range("E" & i) = "CH Ödeme" Then
            chodeme = chodeme + Syf.Range("H" & i)
        End If
        
    Next
    ThisWorkbook.Sheets("Sayfa2").Range("B3").Value = chodeme
    
    Dosya.Close False
End Sub
chodeme = chodeme + Syf.Range("H" & i) bu satırın yerine benzersiz sayma işlemi yapabilir miyiz.
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 00:37   #3
cengizank
 
Giriş: 28/10/2007
Şehir: ankara
Mesaj: 217
Excel Vers. ve Dili:
2003-2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sheets("Sayfa1"").Select
Range("A2:O30").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Benzersiz kayıtlar için
cengizank Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 17:24   #4
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Alıntı:
cengizank tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sheets("Sayfa1"").Select
Range("A2:O30").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Benzersiz kayıtlar için
Sn. Cengizank Kodu yukarıdaki kodun yerine koymam yeterli mi?
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 17:51   #5
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Arkadaşlar forumda didik didik aradım benim problemini çözecek bir koda rastlamadım. Yada karmaşık olduğu için anlamadım anladıklarım ise sade saydırma.

Yardım edecek kimse yok mu.
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 20:01   #6
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Bir kod buldum uyarladım fakat ters giden birşeyler var. Sonuç 0 çıkıyor.

kodlamanın ciğerinden anlayan arkadaşlar bir inceleyebilir misiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()

Dim sat As Long, i As Long, say As Long
Dim DosyaYoluAdi As String
    Dim Syf As Worksheet
    Dim Dosya As Workbook
    
    DosyaYoluAdi = "C:\Users\buradan açın\Desktop\raporlama\Veri.xls"
    Set Dosya = Workbooks.Open(DosyaYoluAdi)
    Set Syf = Dosya.Sheets("Sayfa1")
sat = Cells(Rows.Count, "e").End(xlUp).Row
For i = 1 To sat
    If Syf.Range("b" & i) = "ABDULLAH DEMİR" And WorksheetFunction.CountIf(Syf.Range("e3:e" & i), Syf.Cells(i, "e").Value) = 1 Then say = say + 1
Next
Range("a1").Value = say
 Dosya.Close False
End Sub
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 20:11   #7
mtncbk
 
Giriş: 26/04/2008
Şehir: Samsun
Mesaj: 5
Excel Vers. ve Dili:
Office 2007
Varsayılan

Merhabalar. Site adminlerinden birine nasıl ulaşabilirim acaba. Ücretli üyelik hakkında sorum olacaktı. Belki alakasız bir yer oldu özür dilerim.
mtncbk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 20:35   #8
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Aramaya altın üyelik yaz. Hüseyin bey ilgileniyor. oradan irtibat kurabilirsin.
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 20:48   #9
mtncbk
 
Giriş: 26/04/2008
Şehir: Samsun
Mesaj: 5
Excel Vers. ve Dili:
Office 2007
Varsayılan

Bilgi için teşekkürler turanb. Ödeme yaptım üyelik aktifleştirmek için irtibat kurmak istiyorum aslında.
mtncbk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2014, 20:52   #10
turanb
 
Giriş: 18/03/2012
Şehir: sivas
Mesaj: 440
Excel Vers. ve Dili:
2013
Varsayılan

Size gelen mailden ulaşabilirsiniz.
turanb Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:05


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden