Hücreyi kitleyip alt satıra geçmek.

[semih4]

Merhaba arkadaşlar;

Şimdi benim şöyle bir isteğim var VBA ile ne kadar mümkün bilmiyorum ama mümkün olmasını umuyorum.Öncelikle dosyam ektedir.Benim isteiğim söyle birşey;

Price kısmındaki sutunun tamamen kitli olmasını istiyorum.Sadece Week 1 deki Price sütünü acık olucak ondan sonra kullanıcı Week 1 deki price girdikden sonra Contunie ye bastıgı zaman Week 1 deki Price da kitlenip 2 acılıcak.Sonra tekrar Countunie ye bastıgı zaman 2 yide kitleyip 3ü acacak , bu sekilde böyle devam edecek.Previos a tıkladıgı zaman bir önceki hataya geçip onun kilidini açıp o haftadaki değeri silecek.Reset yaptıgı zamanda her değer silinip başa dönecek.

Yardımlarınızdan dolayı şimdiden teşekkür ederim.
Kolay gelsin.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton3_Click() 'Continue
 
    Dim son As Long
    
    ActiveSheet.Unprotect
    
    With Range("D4:D14")
        .Locked = True
        .FormulaHidden = True
    End With
    
    son = Cells(14, "D").End(xlUp).Row + 1
    
    With Range("D" & son)
        .Select
        .Locked = False
        .FormulaHidden = False
    End With
 
    ActiveSheet.Protect
 
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub CommandButton1_Click() 'Pre
 
    Dim son As Long
    
    ActiveSheet.Unprotect
    
    With Range("D4:D14")
        .Locked = True
        .FormulaHidden = True
    End With
    
    son = Cells(Rows.Count, "D").End(xlUp).Row
    
    With Range("D" & son)
        .Select
        .ClearContents
        .Locked = False
        .FormulaHidden = False
    End With
 
    ActiveSheet.Protect
 
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub CommandButton2_Click() 'Reset
 
    ActiveSheet.Unprotect
    
    Range("D4:D14").ClearContents
 
End Sub

.

 

[semih4]

Çok teşekkür ederim..