Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
H
Çözüldü Komut Butonuyla Aç Kapa Haline Getirmek
Makro kodunu kopyalayıp burada paylaşır mısınız.
Okutkan hocam merhabaMakro kodunu kopyalayıp burada paylaşır mısınız.
Ş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.
Ad1 değişkeni butonun.caption ayarındaki isim ile aynı olacak.
Ad2 değişkenini istediğiniz bir isim verebilirsiniz.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(31 satır)
Çözüm