• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Boşlukları Kaldırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Merhaba, bir programdan aldığım exel çıktısında ki verilerde boşluklar var,. CountIf fonksiyonundaki dizi aralığına trim fonksiyonu kullanılabilir mi, kullanılırsa nasıl olur yada başka bir yolu varmıdır boşlukları kaldırmak için ?
örnek veri
A sütunu( boşlukları x olarak belirttim.)
işitmexxx
işitme,konuşmaxxxx
vs......
 
Son düzenleme:

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba Fatih Bey,
Dosyanızı yollarsanız, üzerinde net çözüm sunabiliriz.
 

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Örnek dosya ekte.
 

Ekli dosyalar

  • Kitap1.xlsx
    11.8 KB · Görüntüleme: 6

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz.. (y)
PHP:
Sub ExcelTurkey()
    Dim a&, kelime$
    With CreateObject("Scripting.Dictionary")
        For a = 2 To Cells(Rows.Count, "A").End(3).Row
            kelime = Trim(Cells(a, 2).Value)
            If Not .Exists(kelime) Then
                .Add kelime, 1
                    Else
                .Item(kelime) = .Item(kelime) + 1
            End If
        Next a
        Range("F2").Resize(.Count, 1).Value = Application.Transpose(.Keys)
        Range("G2").Resize(.Count, 1).Value = Application.Transpose(.Items)
    End With
    kelime = vbNullString: a = Empty
End Sub
 

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Hocam bir rica da daha bulunabilir miyim ? Bu kodlara yabancıyım, satırların karşılarına açıklama yapabilir misiniz ?
 

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Sayın Admin verdiğiniz kodları koşulu iki sütuna çıkarabilir miyiz. Ekteki exel dosyasında B ve C sütunlarında arama yapıp iki sütunda da koşul taşıyorsa sayma yapabilir mi?
 

Ekli dosyalar

  • KoşulluSayma.rar
    119.1 KB · Görüntüleme: 6

fatih

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Ankara
Ad Soyad
Fatih
Örnek olarak kadrolu işitme kaybı olan personel sayısını, sizin yukarıdaki örneğe nasıl uygularız.. (kadrolu C sütunu, işitme B sütununda veriler bulunmakta)
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Ben size kadrolu için çözüm sunayım, siz ona bakarak şirket için olanı da hazırlarsınız..(y)
PHP:
Sub ExcelTurkey()
    Dim a&, kelime$
    With CreateObject("Scripting.Dictionary")
        For a = 2 To Cells(Rows.Count, "A").End(3).Row
            If Cells(a, 3).Value = "kadrolu" Then
                kelime = Trim(Cells(a, 2).Value)
                If Not .Exists(kelime) Then
                    .Add kelime, 1
                        Else
                    .Item(kelime) = .Item(kelime) + 1
                End If
            End If
        Next a
        Range("E2").Resize(.Count, 1).Value = "kadrolu"
        Range("F2").Resize(.Count, 1).Value = Application.Transpose(.Keys)
        Range("G2").Resize(.Count, 1).Value = Application.Transpose(.Items)
    End With
    kelime = vbNullString: a = Empty
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt