Güncelle butonu ile textboxtaki veriği hücreye yazdırma

[stirra_ej]

Textbox ta var olan bir veriyi buton aracılığı ile hücreye yazdırıyorum. Ancak her butonu kullanışta aynı veriyi tekrar tekrar yazdırıyor. Aklıma herhangi bir koşul gelmiyor.. Acaba bir kere yazdırdıktan sonra tekrar yazdırmaması için nasıl bir koşul kullanmalıyım. yardımcı olurmusunuz.

 

[çıtır]

Hücreye yazdırdıkdan sonra textbox'u temizleyiniz.

 

[Orion1]

Textbox sayfa üzerinde ise;

Dim k As Range
Set k = Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "Bu veri var!!"
    Else
    Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1).Value = TextBox1.Value
End If

 

[stirra_ej]

hocam aylara göre 30 gün için kullanmak gerekiyor, mesela ilk 10 gün için girildiktan sonra 10 satır için kullanıyorum sonra diğer 20 satır için de kullanmam gerekiyor ilk 10 günü yazdırdıktan sonra birdaha yazdırmasın istiyorum.
koşul yazdıramadım..

BANA şu türde bir koşul verebilirmisiniz. Örneğin A1 Hücresi Textboxta yazılı olan veriyi içeriyorsa makro exit sub.

 

[Orion1]

3 nolu mesajda yazdım kodu

 

[stirra_ej]

oriyon hocam şu satıra 2 tane textbox ekleyebilirmisiniz lütfen
Set k = Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole)


texztbox 1 ve textbox 2

 

[Orion1]

Örnek dosyanızı yollayınız.