💻 Excel VBA Kod Parçacıkları

Excel VBA kullanarak son dolu sütunu bulmak için aşağıdaki kodu kullanabilirsiniz. Bu kod, aktif çalışma kitabındaki aktif çalışma sayfasında son dolu sütunu bulur:

Sub SonDoluSutunBul() Dim SonSutun As Long SonSutun = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column MsgBox "Son dolu sütun: " & SonSutun End Sub

---

Excel VBA'da Environ işlevini kullanarak "İndirilenler" klasörünü bir değişkene atabilirsiniz. Aşağıdaki kod, "İndirilenler" klasörünü bir değişkene atar:

Sub IndirilenlerKlasorunuAl() Dim indirilenlerKlasoru As String indirilenlerKlasoru = Environ("USERPROFILE") & "\Downloads\" MsgBox "İndirilenler Klasörü Yolu: " & indirilenlerKlasoru End Sub