iki tari arası, metnin içindeki hece, kelime saydırma;

[abbasonline]

İki tarih arasında, Hücredeki metnin içindeki hece, kelime veyahut cümlenin tamamına göre saydırmak için nasıl yapmamız gerekir.

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[abbasonline]

muygun bey, teşekkür ederim sağolun, ancak a ve b sütunundaku veriler 39000 e kadar gidiyor, bundan dolayı c sütununda yapmış olduğumuz birleştirme( formulla), zaten şişmiş olan EXCEL i daha da fazla şişir düşüncesindeyim ve hesaplama yaparken makinayı kasacağa benziyor, bundan dolayı başka bir çıkar yolu olabilirmi, örneğin kod girilme gibi veyahut başka türlü formulle,(Topla. Çarpım formulü gibi)

 

[abbasonline]

Arkadaşlar ekteki dosyaya yardım edermisiniz, acele lazım olduğu için, yoksa bayağı bir veri sayacağım elle,

 

[Orion1]

Dosyanıa ekte.
Verilerinizin çokluğuna göre süre uzayabilir.

Sub kelime_bul()
Dim kelime, sut As Integer, i As Long, ilk As Date, son As Date
Dim sat As Long, k As Integer, deg As String
Sheets("Sayfa1").Select
sut = Cells(3, 256).End(xlToLeft).Column
If sut < 3 Then Exit Sub
Application.ScreenUpdating = False
ilk = Time
sat = Cells(65536, "B").End(xlUp).Row
Range("C4:IV65536").ClearContents
For i = 4 To sat
    If Cells(i, "A").Value >= Range("A1").Value _
    And Cells(i, "A").Value <= Range("A2").Value Then
        deg = UCase(Replace(Replace(Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        For k = 3 To sut
            kelime = Split(deg, UCase(Replace(Replace(Cells(3, k).Value, "ı", "I"), "i", "İ")))
            Cells(i, k).Value = UBound(kelime)
        Next
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "Süre : " & Format(Time - ilk, "hh:mm:ss") & vbLf & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[abbasonline]

evren bey çok teşekkür ederim, ellerinize sağlık.

 

[Orion1]

evren bey çok teşekkür ederim, ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Alternatif olsun.

C4 hücresine yazarak yan ve alt satırlara kopyalayın.

=TOPLA.ÇARPIM(($A4>=$A$1)*($A4<=$A$2)*ESAYIYSA(MBUL(C$3;$B4)))

.

 

[abbasonline]

Ömer bey teşekkür ederim, ellerinize sağlık.

 

[abbasonline]

Evren bey, ekteki dosyadaki gibi tabloyu dolduruyor, sadece tarihler arasını b sütununda arayıp tabloya yazmasını istiyorum, galiba ben tabloyu yanlış çizdim onun için böyle bir hata meydana geldi, bizim tablonun ilk satırı olsun( sadece 4. satır) 3. satırda aranan kelime altındada kaç tane olduğu tarih aralığında, kusura bakmayın hata bizden kaynaklanmış,

 

[abbasonline]

Evren bey, Tabloda hata yapmışım, 10. mesaj.

 

[abbasonline]

Evren bey, Tabloda hata yapmışız tablonun ilk satırı bulunacak diğer satırlar olmayacaktı.

 

[abbasonline]

--------------------------------------------------------------------------------

Evren bey, Tabloda hata yapmışım, 10. mesaj.
Evren bey, Tabloda hata yapmışız tablonun ilk satırı bulunacak diğer satırlar olmayacaktı.

 

[Orion1]

--------------------------------------------------------------------------------

Evren bey, Tabloda hata yapmışım, 10. mesaj.
Evren bey, Tabloda hata yapmışız tablonun ilk satırı bulunacak diğer satırlar olmayacaktı.

Kim yapmış?Ben dediğiniz şekilde yaptım.

 

[abbasonline]

B sütunundaki veriler 39000 bine kadar gidiyor c3 ve o3 e kadar olan hücrelerdeki kelimeleri bu B sütununda arayıp bulurak, c3 ve o3 arasındaki hücrelerin altındaki boş yerlere yazacak Yani Ali kelimesinden mesala 20 adet var gibi, ama biz size tabloyu başta anlatırken yanlış aktarmışız, bundan dolayı sizin yaptığınız tablo b sütununda bulunan verinin sağ tarafından itibaren c3 ve o3 arası hücreleri dolduruyor ve böylece 39000 satıra kadar devam ediyor yani B sütununda ne kadar veri varsa karşısına tablo varmış gibi doldurma yapıyor,

 

[Orion1]

B sütunundaki veriler 39000 bine kadar gidiyor c3 ve o3 e kadar olan hücrelerdeki kelimeleri bu B sütununda arayıp bulurak, c3 ve o3 arasındaki hücrelerin altındaki boş yerlere yazacak Yani Ali kelimesinden mesala 20 adet var gibi, ama biz size tabloyu başta anlatırken yanlış aktarmışız, bundan dolayı sizin yaptığınız tablo b sütununda bulunan verinin sağ tarafından itibaren c3 ve o3 arası hücreleri dolduruyor ve böylece 39000 satıra kadar devam ediyor yani B sütununda ne kadar veri varsa karşısına tablo varmış gibi doldurma yapıyor,

BU hafta işim çok bakamam.Bir dahaki hafta.Yapan olmazsa bakarım.

 

[abbasonline]

Teşekkürler sağolasın.

 

[Orion1]

Dosyanız ektedir.

Sub kelime_bul()
Dim kelime, sut As Integer, i As Long, ilk As Date, son As Date
Dim sat As Long, k As Integer, deg As String
Sheets("Sayfa1").Select
sut = Cells(3, 256).End(xlToLeft).Column
If sut < 3 Then Exit Sub
Application.ScreenUpdating = False
ilk = Time
sat = Cells(65536, "B").End(xlUp).Row
Range("C4:IV65536").ClearContents
For i = 4 To sat
    If Cells(i, "A").Value >= Range("A1").Value _
    And Cells(i, "A").Value <= Range("A2").Value Then
        deg = UCase(Replace(Replace(Cells(i, "B").Value, "ı", "I"), "i", "İ"))
        For k = 3 To sut
            kelime = Split(deg, UCase(Replace(Replace(Cells(3, k).Value, "ı", "I"), "i", "İ")))
            Cells(4, k).Value = [B][COLOR="Red"]Format(Cells(4, k).Value + UBound(kelime), "##0")[/COLOR][/B]
        Next
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "Süre : " & Format(Time - ilk, "hh:mm:ss") & vbLf & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[abbasonline]

Evren bey çok teşekkür ederim ellerinize sağlık.

 

[Orion1]

Evren bey çok teşekkür ederim ellerinize sağlık.

Rica ederim.
İyi çalışmalr.