Vergİ İade

[serkankeser]

Herkese Merhaba;
Excel Web Tr sayesinde öğrendiklerimle vergi iade çalışması yapmaya çalıştım. Bir kaç noktada takıldım. Sayfalara kayıtlar A3' ten başlıyor A49' a kadar yapacak, A49'dan sonra G4:G49 arası kayıt yapacak, eğer G49' doluysa 2. sayfaya geçecek kayıda A54'ten başlayacak.
Dosya ekte, yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[serkankeser]

Merhaba;
Arkadaşlar döngüde nasıl bir değişiklik yapmam gerekiyor çözemedim. Fikri olan arkadaşlar yazarsa memnun olacağım.

 

[veyselemre]

Sub kaydet()
If [B2] = "" Or [B3] = "" Or [B4] = "" Or [B5] = "" Then GoTo HATA

Select Case [b1].Value
    Case 1: sayfa = "EĞİTİM"
    Case 2: sayfa = "SAĞLIK"
    Case 3: sayfa = "GIDA"
    Case 4: sayfa = "GİYİM"
    Case 5: sayfa = "KİRA"
End Select

Sheets(sayfa).Select
Range("A3").Select

For Each huc In Range("A3:A49,G4:G49,A54:A99,G54:G99").Cells
    huc.Select
    If huc.Value = "" Then
            Select Case huc.Address
                Case "$A$3": [a3] = 1
                Case "$G$4": [g4] = 48
                Case "$A$54": [A54] = 94
                Case "$G$54": [g54] = 140
            End Select
        Exit For
    End If
Next

If ActiveCell.Value = "" Then ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Value = Sheets("FİŞGİRİŞ").[B2]
ActiveCell.Offset(0, 2).Value = Sheets("FİŞGİRİŞ").[B3]
ActiveCell.Offset(0, 3).Value = Sheets("FİŞGİRİŞ").[B4]
ActiveCell.Offset(0, 4).Value = Sheets("FİŞGİRİŞ").[B5]
Sheets("FİŞGİRİŞ").Select
    [B2:B5] = ""
    [B2].Select
    Workbooks("VERGİİADE.XLS").Save
Exit Sub
HATA:
MsgBox "EKSİK BİLGİ GİRİŞİ." & Chr(10) & "LÜTFEN GİRDİĞİNİZ BİLGİLERİ KONTROL EDİNİZ.", vbCritical, "DİKKAT !"
End Sub

 

[serkankeser]

Sayın Veyselemre Bey çok teşekkür ederim.
Çalışmanız çok güzel olmuş. Kodlarınızdan şu sonucu çıkardım;
Benim daha çok şey öğrenmem gerekiyor!!!
İlginiz için çok sağolun. İyi günler.