💻 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

---

Bir hücredeki tarihi alarak tarihin haftanın kaçıncı gününe denk geldiğini bulmak için şu kod kullanılabilir:

Sub HaftaninKacinciGunu() Dim tarih As Date Dim gunNo As Integer ' Tarihin alındığı hücreyi buraya yaz (örneğin A1) tarih = Range("A1").Value ' Haftanın kaçıncı günü olduğunu hesapla (Pazar = 1) gunNo = Weekday(tarih, vbSunday) ' Sonucu bir mesaj kutusu ile göster MsgBox "Tarih: " & tarih & vbCrLf & "Haftanın " & gunNo & ". günü" End Sub