hücrede yazılan ifadeye göre ilgili hücreye geçme

[ANKARA1974]

İyi günler ekteki dosyaya göre;

çalışma durumuna (1.sütuna faal, 2.sütuna bakım ve 3.sütuna arıza girişi yapılıyor) göre hücrelere geçiş yapmam gerekiyor.

Örneğin A-1 iş makinesi bakım veya arıza durumunda ise "B9" (A-2 iş makinesi ) hücresine geçececek, sonra A-3 iş makinesi bakım veya arıza durumunda ise "B13" (A-4 iş makinesi ) hücresine geçececek, yine aynı şekilde A-5 iş makinesi bakım ve arıza durumunda ise "B19" (A-6 iş makinesi ) hücresine geçececek, D-1 iş makinesi bakım ve arıza durumunda ise "B29" (D-2 iş makinesi ) hücresine geçececek.

Hazırladığım makro bir hücreye geçişte çalıştıktan sonra ikinci girişte çakışma yapıyor veya bakım-arıza yazılarını sildiğimde farklı yerlere (istemediğim yerlere) geçiş yapıyor.

Makroda nasıl bir düzenleme yapmam lazım ?

Şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Mevcut kod'u aşağıdaki ile değiştirerek dener misiniz?
Kırmızı satır; bakım veya arıza yazdığınız satırdaki B sütunu hücresi boşsa, yazdığınız veriyi siler.
Böyle birşey (yani B sütunundaki boş hücrelerin bulunduğu satırlarda F veya G sütununa veri yazılmasını)
istemiyorsanız kırmızı satırı silin.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
alan = "F3:G" & UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
[COLOR="Red"]If Cells(Target.Row, 2) = "" Then Target = ""[/COLOR]
If Target.Row = UsedRange.SpecialCells(xlCellTypeLastCell).Row Then Exit Sub
If Target = "bakım" Or Target = "arıza" Then Cells(Cells(Target.Row, 2).End(xlDown).Row, 2).Activate
End Sub[/FONT]

 

[ANKARA1974]

Ömer Bey elinize sağlık, kod gayet güzel çalışıyor.

Teşekkür ederim.

 

[Ömer BARAN]

İyi günler dilerim.