userformdaki chekbox tıklandığında sayfa1 c12:c32 aralığındaki ilk boşluğa adımı yazs

[baknediycem]

userformdaki chekbox tıklandığında sayfa1 c12:c32 aralığındaki ilk boşluğa adımı yazsın.

chekbox boş olunca adım yazmasın.

 

[baknediycem]

merhaba

(guncelleme)

 

[Orion1]

Merhaba.
CheckBox'ın click olayına aşaığdaki kodları yazın.

Private Sub CheckBox1_Click()
Dim hücre As Range
Sheets("Sayfa1").Select
For Each hücre In [C1:C32]
    If hücre.Value = "" Then
        hücre.Value = "Benim İsmim"
        Exit For
    End If
Next
End Sub

 

[baknediycem]

sn. sezar bir yardımınıza daha tesekkurlerimi sunarım.istediğim gibi (fakat

Merhaba.
CheckBox'ın click olayına aşaığdaki kodları yazın.

Private Sub CheckBox1_Click()
Dim hücre As Range
Sheets("Sayfa1").Select
For Each hücre In [C1:C32]
    If hücre.Value = "" Then
        hücre.Value = "Benim İsmim"
        Exit For
    End If
Next
End Sub

chekboxtan chek isaretini kaldırdığımda bir kez daha alt hucreye adımı yazıyor. benim istediğim chek işaretini kaldırdığım zaman adım silinsin.

kısaca : tıkladım >işaret kondu>adım yazdıve tekrar tıkladım>işaret kalktı>yazılan adım silindi.

bunu istiyorum. yardımcı olunuz. tekrar tesekkur ederim.

 

[baknediycem]

merhaba

(guncelleme)

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyin.

Private Sub CheckBox1_Click()
Dim hücre As Range
Sheets("Sayfa1").Select
If CheckBox1.Value = True Then
    For Each hücre In [C1:C32]
        If hücre.Value = "" Then
            hücre.Value = "Benim İsmim"
            Exit For
        End If
    Next
End If
If CheckBox1.Value = False Then
    For Each hücre In [C1:C32]
        If hücre.Value = "Benim İsmim" Then
            hücre.Value = ""
            Exit For
        End If
    Next
End If
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu uyarlayıp deneyiniz.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then [A1000].End(3).Offset(1) = "Benim İsmim"
If CheckBox1 = False Then [A1000].End(3) = ""
End Sub

 

[baknediycem]

merhaba

sizler için cok basit; hatta yanıt verirken sıkılabileceginiz kadar basit sorular bunlar fakat biz bilmeyenlere çok faydanız dokunuyor. buyuk isler basarıyorsunuz.

tekrar tekrar sonsuz tesekkurler.

 

[Orion1]

Rica ederim.
İyi çalışmalar.