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 06-12-2017, 12:13   #1
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,133
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan Aynı tarihe sahip sayfalar

Merhaba arkadaşlar;

Bir formül yada makro oluşturmak istiyorum;


excel sayfası içinde; A B C D E F G şeklinde sayfalar mevcut.

sayfalar içinde;
B3 sütunu TARİH bilgisi içeriyor. B3..B78

Aynı tarihden kaç tane var ? bunu nasıl yapabilirim..?

yardımcı arkadaşa şimdiden teşekkürler..
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 13:10   #2
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,962
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Sadece B3 hücresi mi tarih içeriyor? Yoksa B3:B78 Aralığında mi tarihler var?

Yani tüm sayfaların B3:B89 aralığında aynı tarihten kaç adet Tarih olduğunu mu soruyorsunuz?

Sonuç nereye yazılacak, belirli bir sayfa adı var mı?
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 13:49   #3
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,962
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Sorularıma yanıt gelmemiş ama ben anladığım kadarıyla kod yazdım.

Tüm sayfaların B3:B78 aralığındaki tarihleri sayar.
Sonuc Adlı bir sayfaya sonucu yazar. Bu Sayfanın olması gerekir.

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

    Dim i As Integer, _
        d, _
        Deg As Variant, _
        Syf As Worksheet
    
    Set d = CreateObject("Scripting.Dictionary")
    
    For Each Syf In Sheets
    
        If Not Syf.Name = "Sonuc" Then
            For i = 3 To 78
                Deg = Syf.Cells(i, "B")
                If IsDate(Deg) Then
                    If Not d.exists(Deg) Then
                        d.Add Deg, 1
                    Else
                        d.Item(Deg) = d.Item(Deg) + 1
                    End If
                End If
            Next i
        End If
        
    Next Syf
    
    Sheets("Sonuc").Select
    Range("A:B").ClearContents
    
    MsgBox d.Count & " Adet Değişik Tarih Bulundu ...."
   
    Range("A1").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))

    Set d = Nothing
    
End Sub
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 13:55   #4
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,133
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Necdet Yeşertener

Hocam yoğunluk vardı.. şimdi yeni bakıyorum.. sonucu burdan güncelleyeceğim..


************************* *************************************

Hocam şu hatayı alıyorum;

http://s8.dosya.tc/server5/r1u67b/Hata.rar.html
************************************************** *************

Bu mesaj en son " 06-12-2017 " tarihinde saat 14:07 itibariyle k0081 tarafından düzenlenmiştir....
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 13:58   #5
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,133
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Alıntı:
Necdet Yeşertener tarafından gönderildi Mesajı Görüntüle
Merhaba,

Sadece B3 hücresi mi tarih içeriyor? Yoksa B3:B78 Aralığında mi tarihler var?

Yani tüm sayfaların B3:B89 aralığında aynı tarihten kaç adet Tarih olduğunu mu soruyorsunuz?

Sonuç nereye yazılacak, belirli bir sayfa adı var mı?
* B3:B78 Aralığında tarihler var.
* B3:B78 aralığında aynı tarihten kaç tane var., onları bulmak istiyorum evet.

Not: bulanacak bu sayı 7 adet sheet bakılıpta sonuç alınacak..

Bu mesaj en son " 06-12-2017 " tarihinde saat 14:56 itibariyle k0081 tarafından düzenlenmiştir....
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 14:15   #6
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,962
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Kodları yeniledim. Ama dosyanızda Sonuc Adlı bir sayfa olması gerekiyor, o sayfada listeletiyorum.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 14:26   #7
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,133
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Alıntı:
Necdet Yeşertener tarafından gönderildi Mesajı Görüntüle
Merhaba,

Kodları yeniledim. Ama dosyanızda Sonuc Adlı bir sayfa olması gerekiyor, o sayfada listeletiyorum.

Nejdet Hocam tamamdır, Elinize sağlık..

Eğer çok sıkıntı değilse şöyle bişey ekleyebilirmiyiz?

1- Aynı Tarihleri alırken VİNÇ ibaresi olanları saysın. VİNÇ bilgisi C3..C78 arasındadır.

2- bir de sayfa adlarınıda kenara yazabilirse , mükemmel olur hocam..

Çok teşekkür ediyorum, Saygılar sunuyorum.


******************** BU SORUN ÇÖZÜLMÜŞTÜR. ****************************

Bu mesaj en son " 06-12-2017 " tarihinde saat 20:32 itibariyle k0081 tarafından düzenlenmiştir.... Neden: Sorunun çözümü bulundu
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 13:28   #8
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,962
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Kod ve isteğin son hali.

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

    Dim i As Integer, _
        d, _
        Deg As Variant, _
        Syf As Worksheet, _
        Sut
        
    Application.ScreenUpdating = False
    
    Set d = CreateObject("Scripting.Dictionary")
    
    For Each Syf In Sheets
    
        If Not Syf.Name = "Sonuc" Then
            For i = 3 To 78
                Deg = Syf.Cells(i, "B")
                If IsDate(Deg) And UCase(Replace(Replace(Syf.Cells(i, "C"), "i", "İ"), "ı", "I")) = "VİNÇ" Then
                    If Not d.exists(Deg) Then
                        d.Add Deg, Syf.Name & "|" & 1
                    Else
                        Sut = Split(d.Item(Deg), "|")
                        Sut(0) = Sut(0) & " " & Syf.Name
                        Sut(1) = Sut(1) + 1
                        d.Item(Deg) = Sut(0) & "|" & Sut(1)
                    End If
                End If
            Next i
        End If
        
    Next Syf
    
    Sheets("Sonuc").Select
    Range("A:C").ClearContents
    
    MsgBox d.Count & " Adet Değişik Tarih Bulundu ...."
   
    Range("A1").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))

    Set d = Nothing
    
    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("C1").Select
    
    Application.ScreenUpdating = True
    
End Sub
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 13:38   #9
k0081
 
k0081 kullanıcısının avatarı
 
Giriş: 17/06/2008
Şehir: Düzce
Mesaj: 1,133
Excel Vers. ve Dili:
Excel 2007-2010 Türkçe
Varsayılan

Necdet Yeşertener

Hocam çok teşekkür ederim, Tamamdır. Elinize sağlık. çok güzel oldu.

Saygılar.
k0081 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 13:54   #10
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,962
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Güle güle kullanın.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Ç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 15:17


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden