hakki83

Komut Butonuyla Aç Kapa Haline Getirmek

  • Konuyu başlatan Konuyu başlatan hakki83
  • Başlangıç tarihi Başlangıç tarihi

hakki83

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
887
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
Aşağıdaki kodu bir deneyin, Telefondan düzenlediğim için hata verir mi bilmiyorum.
Ad1 değişkeni butonun.caption ayarındaki isim ile aynı olacak.
Ad2 değişkenini istediğiniz bir isim verebilirsiniz.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(18 satır)
Makro kodunu kopyalayıp burada paylaşır mısınız.
Okutkan hocam merhaba
Şimdi bilgisayara geçtim
Kodlar :
Private Sub CommandButton1_Click() Dim sf As Worksheet: Set sf = Sheets("RAPOR") Dim tarih1 As Date, tarih2 As Date, taranan As Date tarih1 = Format(Date, "dd.mm.yyyy") tarih2 = Format(Date + 10, "dd.mm.yyyy") son = sf.Cells(Rows.Count, "A").End(3).Row sf.Range("A2:C" & son).Interior.Color = xlNone For i = 2 To son taranan = Format(sf.Cells(i, "B").Value, "dd.mm.yyyy") If taranan = tarih1 Or taranan > tarih1 Then If taranan = tarih2 Or taranan < tarih2 Then sf.Range(sf.Cells(i, "A"), sf.Cells(i, "C")).Interior.Color = vbYellow End If End If Next i End Sub
 
Aşağıdaki kodu bir deneyin, Telefondan düzenlediğim için hata verir mi bilmiyorum.
Ad1 değişkeni butonun.caption ayarındaki isim ile aynı olacak.
Ad2 değişkenini istediğiniz bir isim verebilirsiniz.

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(31 satır)
 
Çözüm
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt