Excel’de bir sütunda bulunan metinden ilk üç kelimenin dışındaki kelimeleri silmek
Sub DeleteAfterThreeWords() Dim rng As Range Dim cell As Range Dim words() As String Dim i As Integer ‘ Update to the range that suits you Set rng = ActiveSheet.Range(“A:A”) For Each cell In rng words = Split(cell.Value, ” “) If UBound(words) > 2 Then cell.Value
Continue ReadingExcel’de Visual Basic for Applications (VBA) kullanarak bir sütundaki Türkçe karakterleri İngilizceye çevirme kodları
Excel’de Visual Basic for Applications (VBA) kullanarak bir sütundaki Türkçe karakterleri İngilizceye çevirebiliriz. Bunun için bir VBA Makrosu oluşturacağız. Aşağıdaki adımları izleyin: Excel’de, üzerinde çalıştığınız çalışma kitabını açın. ALT + F11 tuşlarına basarak VBA Editor’ünü açın. Sol üst köşede “Insert” (Ekle) menüsünü tıklayın ve “Module” (Modül)
Continue Reading