makroda düzeltme

[damra2005]

daha önceden forumda hücre şifreleme ile ilgili

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address <> "$A$1" Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [a2].Select
End Sub

kodlar verilmişti. bu mesela e26 ile ı36 arasına nasıl uyarlayabiliriz

 

[Mahmut Bayram]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address = "e26:ı36" Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [e2].Select
End Sub

eğer şifre doğru girilmezse e2 hücresine gidecektir

 

[veyselemre]

[vb:1:e6daa66c5f]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sut = Selection.Cells.Column
sat = Selection.Cells.Row
If sut < 5 Or sut > 9 Or sat < 26 Or sat > 36 Then Exit Sub
şifre = InputBox("lütfen şifreyi giriniz")
If şifre <> "a" Then [a2].Select
End Sub[/vb:1:e6daa66c5f]

 

[damra2005]

üstad hücreleri hangi satırda tanıtıyorsun

 

[veyselemre]

If sut < 5 Or sut > 9 Or sat < 26 Or sat > 36 Then Exit Sub


sütun 5 (E sütununa karşılık=5) den küçük veya sütun 9 (I sütununa karşılık=9) veya satır 26 dan küçük veya satır 36 dan büyükse prodesürden çık,
prosedürün çalışması için sütunun 5-9 arasında satırın 9-26 arasında şartlarının birlikte gerçekleşmesi gerekir

 

[damra2005]

toplamada yardım

ekli dosyadaki problemimi çözemedim. lütfen yardım

 

[Mahmut Bayram]

Re: toplamada yardım

syn damra2005, bir örnek dosya buldum ve sana yrd olacağını sanıyorum