Eğer Boş İse

[schlecht]

Herkese iyi akşamlar. Sayfa 1, A1 ve B1 hücresi boş ise makro ile BOŞ yazmak istiyorum. Hücreye bir şey yazılınca yazılan kalacak şekilde.

 

[çıtır]

Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
        Exit Sub
    End If
If Intersect(Target, [A1:B1]) Is Nothing Then Exit Sub
If Target = "" Then
Target.value="BOŞ"
End If
End Sub

 

[schlecht]

Hocam A1 ve B1 hücresinde "BOŞ" yazacak değil mi bı kodla ben yapamadım. Hücreler boş

 

[çıtır]

Sayfa kodu olarak kopyaladıkdan sonra bir kere A1ve B1 hücresine bir yazı yazınız, sonra A1 ve B1 hücresine boş bırakınız ve gözlemliyiniz.

 

[schlecht]

Teşekkür ederim. Yazıp silmek aklıma gelmemişti.

 

[çıtır]

Teşekkür ederim. Yazıp silmek aklıma gelmemiştir.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[1Al2Ver]

Sayın çıtır merhaba,

Çözümden ben de faydalandım, teşekkür ederim.

 

[çıtır]

Sayın çıtır merhaba,

Çözümden ben de faydalandım, teşekkür ederim.

Merhaba Sayın 1Al2Ver;
Bir fayda sağlamış olmakdan dolayı mutlu oldum.Bildiriminiz için ayrıça teşekkür ederim.

 

[schlecht]

Hücreleri Range("a1:b1").ClearContents ile sildiğimde çalışmıyor. Mause ile tıklamak ya da el ile silmek gerekiyor.

 

[schlecht]

Makro kaydet yönetimi ile çözdüm.

Range("a1").Select
ActiveCell.FormulaR1C1 = ""
Range("a1").Select