Yalnız Mesajı Göster
Eski 24-11-2012, 17:16  
ynmcan
Altın Üye
 
Giriş: 29/08/2008
Şehir: istanbul
Mesaj: 653
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
northcyprus tarafından gönderildi Mesajı Görüntüle
sayın arkadaşım Private Sub Worksheet_Change(ByVal Target As Range) olursa olmuyor butona tıkladığımda işlemi yapması lazım
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub buton_Click()

GENELMASA.MASA1.BackColor = &HFF&


If Range("C7") = "" Then
   Range("C7") = Format(Now, "dd.mm.yyyy hh:mm")
Else
Exit Sub
End If


SPARİŞ_AL.Show



End Sub
Şeklinde deneyin
ynmcan Çevrimdışı   Alıntı Yaparak Cevapla