Textbox ta formül düzeltme

[northcyprus]

iyi günler arkadaşlar.
bu formülü düzeltmem gerekiyor.

Sheets("Sheet1").Select
Range("C5").Select
ActiveCell.Offset(C5).Value = TextBox433.Value

eklemek istediğim şey C5 de eğer isim varsa uyarı mesajı versin ve C5 deki yazı silinmesin...
bu formülde textbox a bişey yazdığım zman direk C5 te olanı siliyor..

yardımlarınız için şimdiden teşekürler...

 

[Korhan Ayhan]

Selamlar,

Kodunuzu aşağıdaki şekilde düzenleyin.

Sheets("Sheet1").Select
Range("C5").Select
[COLOR=RED]If Range("C5") <> "" Then
MsgBox "HÜCREDE VERİ VAR !", vbExclamation, "UYARI !"
Exit Sub: End If[/COLOR]
ActiveCell = TextBox433.Value

 

[northcyprus]

ilginiz için çok teşekür ediyorum sayın cost_control...

 

[northcyprus]

Sayın Cost_Control


Sheets("Sheet1").Select
Range("C5").Select
If Range("C5") <> "" Then
MsgBox "H&#220;CREDE VER&#304; VAR !", vbExclamation, "UYARI !"
Exit Sub: End If
ActiveCell = TextBox433.Value


bu kodu uygulad&#305;m yanl&#305;z e&#287;er h&#252;cre bo&#351; ise kay&#305;t yaparken birinci harfi yazd&#305;ktan sonra MsgBox "H&#220;CREDE VER&#304; VAR !", diyor ve kay&#305;t yapam&#305;yorum.. h&#252;cre bo&#351; ise bu uyar&#305;y&#305; hi&#231; vermesin yada 25 harf yazd&#305;ktan sonra bu uyar&#305;y&#305; verse olurmu?
H&#252;cre dolu iken hi&#231;bi&#351;ey yazmadan textbox a t&#305;kland&#305;&#287;&#305;nda H&#220;CREDE VER&#304; VAR uyar&#305;s&#305;n&#305; yapsa olur mu say&#305;n Cost_COntrol??

 

[Korhan Ayhan]

Selamlar,

San&#305;r&#305;m siz kodu TextBox433_Change olay&#305;na yaz&#305;yorsunuz. O y&#252;zden size her harf giri&#351;inde uyar&#305; veriyor. Bu durumda kodlar&#305;n&#305;z&#305; TextBox433_Exit olay&#305;na yazarsan&#305;z probleminiz kalmayacakt&#305;r.

Yada tam &#231;&#246;z&#252;m i&#231;in &#246;rnek bir dosya eklermisiniz.

 

[northcyprus]

Evet say&#305;n COST_CONTROL change olay&#305;na yaz&#305;yordum kodu &#351;imdi exit e yazd&#305;m oldu galiba te&#351;ek&#252;r ediyorum