makroya hücre atlama ekleme

[igultekin2000]

Sub kayit()
'
' kayit Makro
'

'
    Sheets("SABLON").Select
    Range("A2:L2").Select
    Selection.Copy
    Sheets("ANAGİRİŞ").Select
    Application.Goto Reference:="R99999C1"
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("SABLON").Select
    Application.CutCopyMode = False
    Sheets("GIRIS").Select
    Range("H2:K2").Select
    Selection.ClearContents
    Range("B2").Select
End Sub

kayıt makrom var "B2" Hücresine "GİRİŞ" VE "ÇIKIŞ" gibi iki seçenek kullanıyorum. kursöre kayıt girmeden - B2 hücresinde GİRİŞ varsa kursör J2 hücresine geldiğinde N2 hücresine, B2 hücresined "ÇIKIŞ" varsa kursör G2 hücresine geldiğinde N2 hücresine gitmesini istiyorum.

Teşekkürler

 

[Ömer BARAN]

Merhaba.

İsteğinizin kayıt makrosuyla ilgisini anlayamadım.
Eğer isteğiniz aşağıda belirttiğim şekilde gerçekleşmiyorsa;
gerçek belgenizle aynı yapıda, bir miktar örnek veri içeren örnek belge yüklemenizi ve
belge içerisinde detaylı açıklama yazmanızı öneriyorum.

Yanlış anlamadıysam aşağıdaki şekilde istediğiniz gerçekleşir.
-- Alt taraftan GİRİŞ sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
-- GİRİŞ sayfası B2 hücresinde değişiklik yaparak G2 ve J2 hücresini seçmeye çalışın,
-- B2 hücresinin durumuna göre G2 veya J2'ye geldiğinizde N2 hücresine geçildiğini göreceksiniz.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If Target.Address(0, 0) = "[B][COLOR="Blue"]J2[/COLOR][/B]" And [B2] = "[B][COLOR="blue"]GİRİŞ[/COLOR][/B]" Or _
Target.Address(0, 0) = "[B][COLOR="Red"]G2[/COLOR][/B]" And [B2] = "[B][COLOR="red"]ÇIKIŞ[/COLOR][/B]" Then [B][N2][/B].Activate
[B]End Sub[/B][/FONT]

 

[igultekin2000]

Merhaba.

İsteğinizin kayıt makrosuyla ilgisini anlayamadım.
Eğer isteğiniz aşağıda belirttiğim şekilde gerçekleşmiyorsa;
gerçek belgenizle aynı yapıda, bir miktar örnek veri içeren örnek belge yüklemenizi ve
belge içerisinde detaylı açıklama yazmanızı öneriyorum.

Yanlış anlamadıysam aşağıdaki şekilde istediğiniz gerçekleşir.
-- Alt taraftan GİRİŞ sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
-- GİRİŞ sayfası B2 hücresinde değişiklik yaparak G2 ve J2 hücresini seçmeye çalışın,
-- B2 hücresinin durumuna göre G2 veya J2'ye geldiğinizde N2 hücresine geçildiğini göreceksiniz.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If Target.Address(0, 0) = "[B][COLOR="Blue"]J2[/COLOR][/B]" And [B2] = "[B][COLOR="blue"]GİRİŞ[/COLOR][/B]" Or _
Target.Address(0, 0) = "[B][COLOR="Red"]G2[/COLOR][/B]" And [B2] = "[B][COLOR="red"]ÇIKIŞ[/COLOR][/B]" Then [B][N2][/B].Activate
[B]End Sub[/B][/FONT]

teşekkürler
stok girişinde gereksiz hücreleri atlamak için verdiğiniz kodları kullandım. bana uygun değiştirerek işimi gördüm.
If Target.Address(0, 0) = "J2" And [B2] = "GİRİŞ" Then [N2].Activate
If Target.Address(0, 0) = "G2" And [B2] = "ÇIKIŞ" Then [J2].Activate
If Target.Address(0, 0) = "L2" And [B2] = "ÇIKIŞ" Then [N2].Activate