Excel Özel İşlemler Menüsü Eklentisi - Sağ Tuş

[assenucler]

Teşekkürler.

 

[Asri]

Güncelleme V4.0.4

* Adı Soyadı bilgisinde * yıldız ekleme özelliği eklendi.
* Metinlerde boşluk karakterine kadar kelime olarak işlem yapar.
* Görünen karakter sayısı belirlenebilir
* Yıldız karakteri için karakter belirlenebilir
* Sabit yıldız seçimi yapılabilir. Sabit yıldız sayısı belirlenebilir

Asri Akdeniz As** Ak*****
Asri Akdeniz As** Ak**
Asri Akdeniz As-- Ak-----
Asri Akdeniz As-- Ak--

Sub isimyildizekle()
'Asri Akdeniz - www.asriakdeniz.com - asriakdeniz@gmail.com

    Dim veri, harf, yeniveri As String

    For Each hucre In Selection
        If hucre <> Empty Then
           veri = hucre
           veri = Trim(veri)
        
           basla = 0
           yeniveri = ""
           harf = ""
           baslahucre = 0
           For i = 1 To Len(veri)
              harf = Mid(veri, i, 1)
              baslahucre = baslahucre + 1
              If (harf <> "" And harf <> " ") And baslahucre > Val(gorunensay.Value) Then
                 If yildizsabit.Value And baslahucre > Val(gorunensay.Value) + 1 Then
                    harf = "~"
                 Else
                    harf = yildizkarakteri.Value
                 End If
              End If
              If harf = " " Then
                 baslahucre = 0
              End If
              yeniveri = yeniveri & harf
           Next i
        End If
      
        If yildizsabit.Value Then
           yeniveri = Replace(yeniveri, "~", "")
           harf = ""
           For i = 1 To Val(yildizsayisi.Value)
            harf = harf & yildizkarakteri.Value
           Next i
           hucre = Replace(yeniveri, yildizkarakteri.Value, harf)
        Else
           hucre = yeniveri
        End If
          
    Next
End Sub

 

[Asri]

Güncelleme V4.0.5

* İlk seçilen hücre referans hücre olarak belirlenir. Diğer seçilmiş olan hücreler, sayma seçimlerine bağlı olarak referans hücre ile eşitlenirse sayma yapılır ve eşitlenen hücrelerin toplam sayısı mesaj olarak verilir.

 

[ÖmerFaruk]

@Asri hocam, bu dosyanın güncellenmiş hali hangisidir?

 

[Asri]

@Asri hocam, bu dosyanın güncellenmiş hali hangisidir?

@NextLevel Bu bölümde paylaştığım programlarım ücretlidir.
Bu neden ile web sayfama link mevcut. İndirme linki bulunmuyor.

 

[ÖmerFaruk]

Zaten sayfanızda aramaya çalışıyorum. Orada bulamadım.

 

[Asri]

Zaten sayfanızda aramaya çalışıyorum. Orada bulamadım.

http://asriakdeniz.com/excel-ozel-islemler-menusu/

 

[Asri]

Güncelleme V4.0.9

* İlk seçilen hücre referans hücre olarak belirlenir. Diğer seçilmiş olan hücreler, seçimlere bağlı olarak referans hücre ile eşitlenirse ilgili işlemler yapılır.

- Zemin rengi, font rengi font boyu ve veri den birden fazla seçim yapılarak ilk seçilen hücreden referans alınır.
- Aynı olanlar, aynı olmayanlar
- Satır sil, veri sil
- Biçim sil , biçim silme seçimleri yapılabilir.