Excel de metin ve sayı içeren hücrelerden sadece sayıyı çıkarmak.

Function sadece_sayi(ifade)
Dim harf As String
Dim uzunluk As Long
uzunluk = Len(ifade)
sadece_sayi = ""
For i = 1 To uzunluk
If IsNumeric(Mid(ifade, i, 1)) Then
sadece_sayi = sadece_sayi & Mid(ifade, i, 1)
End If
Next
End Function

#gif #excel #vba

BeğenFavori PaylaşYorum yap

Toplu bir şekilde dosya adlandırmak için ekstra program indirmeye gerek yok. Excelde A sütünuna dosya adı ve yolunu, B sütununa ise yeni dosya adını ve yolunu görseldeki gibi yazıp aşağıdaki kodu VBA kısmında çalıştırmanız yeterli.
#excel #vba

Klasördeki dosyaların isimlerini de tek seferde getirmek için durumdaki kodu kullanabilirsiniz.

https://teknoseyir.com/durum/1584025

Sub reNamer()
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Do Until i = lastRow
i = i + 1
bir = "A" + CStr(i)
iki = "B" + CStr(i)
Name ActiveSheet.Range(bir) As _
ActiveSheet.Range(iki)
Loop
End Sub

BeğenFavori PaylaşYorum yap

#excel #vba #öneri #tavsiye #TeknoYardım

excel ve vba excel de iyi bir seviyeye gelmek için önerdiğiniz bir kaynak var mı? Başlangıç için Türkçe olması bir artı olur tabii.

BeğenFavori PaylaşYorum yap

#VBA'sı yarı profesyonel ya da profesyonel arkadaşlara bir sorum var. VBA kullanarak, context (bağlam) menüye öğe ekleme işi tam olarak nasıl yapılıyor, çok güzel ve açık şekilde anlatan bir kaynak önerebilir misiniz?
Ben bildiklerim, öğrendiklerim ve gördüğüm örnekler yardımı ile install/uninstall olaylarından yararlanarak ekledim ama birden çok oluyor, hadi hallettim; add-in (eklenti) menüsü kullanarak her yeni eklendiğinde menüye eklenmiyor veya add-in menüsünden her kaldırıldığında kaldırılmıyor.
Bir türlü tam oturtamadım bu işi; oturtabilsem, ribbon (kelebek) menü otomasyonuna girişeceğim ama bir türlü çözemedim tam olarak.
Şimdiden teşekkür ederim.

BeğenFavori PaylaşYorum yap
Önceki yorumları gör 4 / 9