vba

Sub resimi_getir() Dim resim As Object, i As Long, yol As String, dosya As String Sheets("ÖNSAYFA").Select yol = ThisWorkbook.Path & "\RESİMLER" For i = 5 To Cells(65536, "x").End(xlUp).Row For Each resim In ActiveSheet.Shapes Next If Dir(yol & "\" & Cells(i, "x").Value & ".jpg") <> "" Then...

Merhaba, Ekte gibi bir tablomuz var. Kenarlık ve koşullu biçimlendirme yaptırmayı deniyorum. Koşul olarak şubedeki öğrenci sayısı 30'dan küçük ise şube adı ve öğrenci sayısı hücrelerinin dolgu rengi değişiyor. Kenarlık olarak okul adı hizasında son şubeye kadar olan hücrelerin iç...

sonsatir = Sheets("BİLGİLER").Cells(65536, "c").End(xlUp).Row For Each hucre In [D4:AH33] hucre.Value = "-" Next Yukarıdaki formül çalışıyor. Ama benim AH33 değil de AH(sonsatir) a ihtiyacım var. Bunu nasıl yaparım.

Arkadaşlar resimdeki kodu yapmak istiyorum. Ama hata veriyor Yardımcı olur musunuz. Textbox un içindeki i değerini kabul etmiyor Parantez şeklinde kullanımı mı yanlış. Köşeli parantez de denedim i iyi yine hata veriyor.

Merhaba arkadaşlar exceldeki sütun içeriklerine göre belli bir klasöre bağlantıadı.lnk dosyası oluşturabilecek bir makro veya program lazım. Şimdiden teşekkürler.

Ekte bulunan YTP Takip için vba şifresi var kırıp tarihlerde hafta sonu olan günlerin rengini biraz daha koyu yapmak istiyorum. şifre kırabilecek var mı?

VBA Kodu: Dim Choice(1 To 3) As String Dim YourChoice As String Sub Rock() Range("C4").Value = "Rock" YourChoice = "Rock" PC_Choice End Sub Sub Paper() Range("C4").Value = "Paper" YourChoice = "Paper" PC_Choice End Sub Sub Scissors()...

Kodları incelemek için: https://tralleshatirasi.blogspot.com.tr/2017/12/excelde-dijital-saat-kodlama.html