Uyarı Formu

Merhaba,
ControlSource şu şekilde olacak:
ya da veriyi controlsource kullanmadan alabilirisiniz. TextBox2.Text = [P2]

Userform1'in açılışta otomatik gelmesi için Thisworkbook kod bölümüne aşağıdaki kodu kopyalayıp kaydediniz.

İyi çalışmalar...

Private Sub Workbook_Open()
UserForm1.Show
End Sub

kısmı debug hatası veriyor

Dosyanızda zaten auto_open kodu var imiş, az önce farketmemişim, o yuzden workbook_open kullanmanıza gerek yok... Yukarıdaki ikinci öneriyi görmezden gelebilirisniz.
Dosyanızda açılışta tarihyak isimli bir makro çalıştırıyorsunuz ve bu da L sütunundaki tarihlere göre userformu açıyor. Ancak L sütununda yer alan tarihler (M sütunu da aynı şekilde) metin olduğu için kodunuz belirtilen işlemi yapamıyor. İlgili sütunlardaki metin formatındaki tarihi düzeltirseniz çalışacaktır. Ya da If CDate(Cells(a, "L")) - Date < 10 Then gibi kodlarla metni tarihe dönüştürebilirsiniz.

Üstad
Feyzullah abim hazırlamıştı programı. Mükemmel de çalışıyordu.
Bilgileri güncellemek zorunda kaldım. "Keşke de güncelleme yapmasaydım" Şimdi de useform1 ilk açılışta açılmıyor.
Sizi de zahmete verdik. Hakkınızı helal edin. Saygılarımla

malatyalı' Alıntı:

Şimdi de useform1 ilk açılışta açılmıyor.

Genişletmek için tıklayın ...

Estağfurullah, ne zahmeti.
Yalnız userformun açılmama sebebini yukarıda belirttim o şekilde düzenlerseniz açılır.

ÖmerBey' Alıntı:

L sütununda yer alan tarihler (M sütunu da aynı şekilde) metin olduğu için kodunuz belirtilen işlemi yapamıyor. İlgili sütunlardaki metin formatındaki tarihi düzeltirseniz çalışacaktır.

Genişletmek için tıklayın ...

İlave olarak kodlar C sütununa göre döngüye giriyor. Gerçek dosyanızda da örnek dosyanızda olduğu gibi C sütunu boşsa kod döngüye girmeyeceği için userform açılmayacaktır. C sütununu boş bırakmayın.

Eyvallah.
Userform açıldı. Hakkınızı helal edin