Makro ile belirli hücreleri kilitleme

[schlecht]

a1f2: arası hücrelerin içeriğinin değişmemesi gerekiyor. Fakat F2 değişken, yardımlarınız rica ederim.

 

[excel41]

böyle bir şeymi ve değişkenden kastınız nedir ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1:F2")) Is Nothing Then
    Cells(ActiveCell.Row, 6).Select
    MsgBox "A1:F2 aralığa giriş yapılamaz!"
  End If
End Sub

 

[schlecht]

f2 ye direk bir veri girilmesin değerini a5 ten alsın demek istemiştim. zaten onu yapıyor. fakat hücreleri taşınıyor ve değiştiriliyor. aslında a1:f2 arası hiç seçilmese daha iyi olur gibi. Birde var olan bütün sayfalarda bunun geçerli olması gerekiyor. Teşekkürler.

 

[excel41]

anladim kodu uygulayıp sonucu değerlendirin isterseniz

 

[schlecht]

anladim kodu uygulayıp sonucu değerlendirin isterseniz

kodu denedim f1 ve f2 hücrelerinde değişiklik yapabildim ve hücreleri taşıyabildim.

 

[muygun]

Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
satırr = Target.Row
sütunn = Target.Column
If satırr <= 2 And sütunn <= 6 Then
Cells(3, 1).Select
End If
End Sub

Ekleyip deneyin.
İyi çalışmalar.

 

[schlecht]

Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
satırr = Target.Row
sütunn = Target.Column
If satırr <= 2 And sütunn <= 6 Then
Cells(3, 1).Select
End If
End Sub

Ekleyip deneyin.
İyi çalışmalar.

sayın muygun bu kod işeme yarar çok güzel çalışıyor. Bunu tek bir kod ile bütün sayfalara uygulamak mümkün mü tek tek bütün sayfalara uygulamak zor olacak orjinal excel sayfam 70 sayfadan fazla, İlginize teşekkür ederim.

 

[muygun]

Merhaba;
Sayfadaki işlem ile tetiklenen bir kod.
Bu nedenle her sayfaya uygulamanız gerekiyor.
Biraz zamanınızı alır ama...
İyi çalışmalar.

 

[schlecht]

Sayın muygun, dediğiniz şekilde her sayfaya uygulamayı deneyeceğim. Zahmet olmaz ise; vermiş olduğunuz kod A1:F2 alanı kapsayan bir kod bundan D2 hücresini çıkartmamaız mümkün mü? D2 te köprü var tıklayınca hata veriyor. Teşekkürler.

 

[muygun]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat = 1 And süt <= 6 Then
Cells(3, 1).Select
End If
If sat = 2 And süt = 1 Then Cells(3, 1).Select
If sat = 2 And süt = 2 Then Cells(3, 1).Select
If sat = 2 And süt = 3 Then Cells(3, 1).Select
If sat = 2 And süt = 5 Then Cells(3, 1).Select
If sat = 2 And süt = 6 Then Cells(3, 1).Select
End Sub

Bu şekilde deneyin.
İyi çalışmalar.

 

[schlecht]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat = 1 And süt <= 6 Then
Cells(3, 1).Select
End If
If sat = 2 And süt = 1 Then Cells(3, 1).Select
If sat = 2 And süt = 2 Then Cells(3, 1).Select
If sat = 2 And süt = 3 Then Cells(3, 1).Select
If sat = 2 And süt = 5 Then Cells(3, 1).Select
If sat = 2 And süt = 6 Then Cells(3, 1).Select
End Sub

Bu şekilde deneyin.
İyi çalışmalar.

Teşekkürler öok güzel çalışyor. Tüm sayfalara uygulanabilseydi harika olurdu. Tek tek olacak artık. İyi çalışmalar.

 

[schlecht]

muygun hocam bu kodu bütün sayfalara kopyalamın kolay bir yolu var mıdır? Sayfa sayısı biraz fazla,bir de ilgili hücrelerde değişiklik yapmak istediğimde kodları silip tekrar eklemem gerekecek.

 

[FERAZ]

muygun hocam bu kodu bütün sayfalara kopyalamın kolay bir yolu var mıdır? Sayfa sayısı biraz fazla,bir de ilgili hücrelerde değişiklik yapmak istediğimde kodları silip tekrar eklemem gerekecek.

Merhaba.
Kodu sayfa koduna değilde hani workbookopen felan varya orda workbookselectionchange de olmalı biliyorum.Oraya eklerseniz tek kodla tüm sayfalarda çalışır.
Yani çalışma kitabı koduna yazılacak.

 

[muygun]

muygun hocam bu kodu bütün sayfalara kopyalamın kolay bir yolu var mıdır? Sayfa sayısı biraz fazla,bir de ilgili hücrelerde değişiklik yapmak istediğimde kodları silip tekrar eklemem gerekecek.

Merhaba;
Ekli dosyayı inceleyin.
Bu dosyada ilave bir sayfa var. Bu sayfada gereken seçim ile diğer sayfalarda kullanılabilir hücre/hücreleri düzenleyebilirsiniz.
Ama her sayfaya kodları eklemeniz gerekiyor.
İyi çalışmalar.

 

[schlecht]

Merhaba;
Ekli dosyayı inceleyin.
Bu dosyada ilave bir sayfa var. Bu sayfada gereken seçim ile diğer sayfalarda kullanılabilir hücre/hücreleri düzenleyebilirsiniz.
Ama her sayfaya kodları eklemeniz gerekiyor.
İyi çalışmalar.

Elinize sağlık ilk verdiğiniz kodda bu da süpr çalışıyor. Fakat her sayfaya kod yazmak bir zaman alıyor ilk yazdığınız kodda işimi görüyor dediğim gibi her sayfaya yazma olayı biraz vakit alacak. Teşekür ederim ilginize.