Makro// Procedure Too Large hata mesajı

S

sozgul

Katılım
1 Ocak 2006
Mesajlar
13
Merhaba,

15 satır 10 sütunluk bir tablo oluşturdum. Kullanıcı bu tabloyu doldurup kaydet dediğinde her satır için dolu-boş kontrolü yaptırıp satırlar dolu ise x çalışma sayfasına kaydediyorum. İlgili kodları yazdım ancak makroyu çalıştırdığımda "procedure too large" hatası veriyor. Kodları farklı makrolar içine kaydedip procedure içinde bunları çalıştırarak kod satırlarını azaltmayı denedim ama yine aynı mesajla karşılaşıyorum.

Bu sorunu nasıl çözebilirim? Yardımcı olabilirseniz sevinirim.

Teşekkürler, iyi çalışmalar..
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kodlarınızı veya dosyanızı eklerseniz yardımcı olmaya çalışırız.
 
S

sozgul

Katılım
1 Ocak 2006
Mesajlar
13
Kodlar aşağıdaki gibi.. teşekkürler..

Sub KAYDETLISTE()
'
'SATIR DOLU BOÞ KONTROLLERİ YAPIP TÜM GİRİÞLERİ KAYDET

Application.ScreenUpdating = False

'1.satır veri kontrol

If (Range("D1").Value = "İşlem Þubesi Seçiniz" Or Range("D1").Value = "") And (Range("C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17").Value = 0 Or Range("C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17").Value = 0) And (Range("E3,E4,E5,E6,E7,E8,E9,E10,E11,E12,E13,E14,E15,E16,E17").Value = 0 Or Range("E3,E4,E5,E6,E7,E8,E9,E10,E11,E12,E13,E14,E15,E16,E17").Value = "") And (Range("F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17").Value = 0 Or Range("F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17").Value = "") And (Range("G3,G4,G5,G6,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17").Value = 0 Or Range("G3,G4,G5,G6,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17").Value = "") And _
(Range("H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17").Value = 0 Or Range("H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17").Value = "") And (Range("I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14,I15,I16,I17").Value = "Banka Seçiniz" Or Range("I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14,I15,I16,I17").Value = "") And (Range("J3,J4,J5,J6,J7,J8,J9,J10,J11,J12,J13,J14,J15,J16,J17").Value = "İl Kodu" Or Range("J3,J4,J5,J6,J7,J8,J9,J10,J11,J12,J13,J14,J15,J16,J17").Value = "") And (Range("K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17").Value = "Þube Seçiniz" Or Range("K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17").Value = "") Then

MsgBox ("Bilgi girmediniz kayıt işlemi yapamazsınız..! Lütfen işlem girdikten sonra tekrar deneyiniz..!")

ElseIf Range("D1").Value = "İşlem Þubesi Seçiniz" Or Range("D1").Value = "" Then

MsgBox ("Lütfen İşlem Þubenizi listeden seçip devam ediniz..!")

ElseIf Range("B3").Value = 0 Then
MsgBox ("İşlem tutarını belirtmediniz..!! Lütfen formu eksiksiz doldurunuz..!")

ElseIf Range("D3").Value = 0 Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E3").Value = 0 Or Range("E3").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F3").Value = 0 Or Range("F3").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G3").Value = 0 Or Range("G3").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H3").Value = "Banka Seçiniz" Or Range("H3").Value = "" Then
MsgBox ("Alıcı Bankayı belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("I3").Value = "İl Kodu" Or Range("I3").Value = "" Then
MsgBox ("İl Kodunu belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("J3").Value = "Þube Seçiniz" Or Range("J3").Value = "" Then
MsgBox ("Alıcı Banka Þubesini belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

'2.SATIR VERİ KONTROL
ElseIf Range("B4").Value = 0 And Range("D4").Value = 0 And Range("D4").Value = "" And Range("E4").Value = 0 And Range("E4").Value = "" And Range("F4").Value = 0 And Range("F4").Value = "" And Range("G4").Value = 0 Or Range("G4").Value = "" And Range("H4").Value = "" And Range("H4").Value = "Banka Seçin" And Range("I4").Value = "İl Kodu" And Range("J4").Value = "Þube Seçin" And Range("J4").Value = "" Then

'2.SATIR BOÞSA MAKROYA DEVAM ET

cevap = MsgBox("Kaydetmek istiyor musunuz..?", vbQuestion + vbYesNo, "UYARI")

If cevap = vbYes Then

'Sheets("KAYITLIST").Visible = True

Sheets("KAYITLIST").Select

'ActiveSheet.Unprotect

Sheets("KAYITLIST").Select
kayitno = Range("B1").Value
Range("A2").Value = 0
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"

'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI
Sheets("KRED-EFT").Select
Range("F3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İL KODU
Sheets("KRED-EFT").Select
Range("I3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
'2.SATIR DOLUYSA ALAN KOTROLÜ YAP
ElseIf Range("B4").Value = 0 Or Range("B4").Value = "" Then
MsgBox ("İşlem Tutarını girmediniz.. Lütfen eksiksiz doldurunuz..!")

ElseIf Range("D4").Value = 0 Or Range("D4").Value = "" Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E4").Value = 0 Or Range("E4").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F4").Value = 0 Or Range("F4").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G4").Value = 0 Or Range("G4").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H4").Value = "Banka Seçiniz" Or Range("H4").Value = "" Then
MsgBox ("Alıcı Bankayı belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("I4").Value = "İl Kodu" Or Range("I4").Value = "" Then
MsgBox ("İl Kodunu belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("J4").Value = "Þube Seçiniz" Or Range("J4").Value = "" Then
MsgBox ("Alıcı Banka Þubesini belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

'3.SATIR KONTROL
ElseIf Range("B5").Value = 0 And Range("D5").Value = 0 And Range("D5").Value = "" And Range("E5").Value = 0 And Range("E5").Value = "" And Range("F5").Value = 0 And Range("F5").Value = "" And Range("G5").Value = 0 Or Range("G5").Value = "" And Range("H5").Value = "" And Range("H5").Value = "Banka Seçin" And Range("I5").Value = "İl Kodu" And Range("J5").Value = "Þube Seçin" And Range("J5").Value = "" Then

cevap = MsgBox("Kaydetmek istiyor musunuz..?", vbQuestion + vbYesNo, "UYARI")

If cevap = vbYes Then

'Sheets("KAYITLIST").Visible = True
'1.SATIR
Sheets("KAYITLIST").Select

'ActiveSheet.Unprotect

Sheets("KAYITLIST").Select
kayitno = Range("B1").Value
Range("A2").Value = 0
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"

'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI
Sheets("KRED-EFT").Select
Range("F3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'İL KODU
Sheets("KRED-EFT").Select
Range("I3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off

'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Echo = off
'
'2.SATIR KAYDET

Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"

'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'GÃ?NDEREN

Sheets("KRED-EFT").Select
Range("D4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'GÃ?NDEREN HSP NO

Sheets("KRED-EFT").Select
Range("E4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'ALICI

Sheets("KRED-EFT").Select
Range("F4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'ALICI HSP NO

Sheets("KRED-EFT").Select
Range("G4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'ALICI BANKA

Sheets("KRED-EFT").Select
Range("H4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'İL KODU

Sheets("KRED-EFT").Select
Range("I4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'ALICI ÞUBE

Sheets("KRED-EFT").Select
Range("J4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'AÇIKLAMA

Sheets("KRED-EFT").Select
Range("K4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
'3.SATIR DOLU ALAN KONTROLÜ
ElseIf Range("B5").Value = 0 Or Range("B5").Value = "" Then
MsgBox ("İşlem Tutarını girmediniz.. Lütfen eksiksiz doldurunuz..!")

ElseIf Range("D5").Value = 0 Or Range("D5").Value = "" Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E5").Value = 0 Or Range("E5").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F5").Value = 0 Or Range("F5").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G5").Value = 0 Or Range("G5").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H5").Value = "Banka Seçiniz" Or Range("H5").Value = "" Then
MsgBox ("Alıcı Bankayı belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("I5").Value = "İl Kodu" Or Range("I5").Value = "" Then
MsgBox ("İl Kodunu belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("J5").Value = "Þube Seçiniz" Or Range("J5").Value = "" Then
MsgBox ("Alıcı Banka Þubesini belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

'4.SATIR KONTROL
ElseIf Range("B6").Value = 0 And Range("D6").Value = 0 And Range("D6").Value = "" And Range("E6").Value = 0 And Range("E6").Value = "" And Range("F6").Value = 0 And Range("F6").Value = "" And Range("G6").Value = 0 Or Range("G6").Value = "" And Range("H6").Value = "" And Range("H6").Value = "Banka Seçin" And Range("I6").Value = "İl Kodu" And Range("J6").Value = "Þube Seçin" And Range("J6").Value = "" Then

cevap = MsgBox("Kaydetmek istiyor musunuz..?", vbQuestion + vbYesNo, "UYARI")
'
If cevap = vbYes Then

'1.SATIR KAYDET
'
'Sheets("KAYITLIST").Visible = True
'
Sheets("KAYITLIST").Select
'
'ActiveSheet.Unprotect
'
Sheets("KAYITLIST").Select
kayitno = Range("B1").Value
Range("A2").Value = 0
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
'1.SATIR KAYDET BİTTİ
'
'2.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'2.SATIR KAYDI BİTTİ
'..................................
'3.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
'
'4.SATIR DOLUYSA ALAN KONTROL ET
ElseIf Range("B6").Value = 0 Or Range("B6").Value = "" Then
MsgBox ("İşlem Tutarını girmediniz.. Lütfen eksiksiz doldurunuz..!")

ElseIf Range("D6").Value = 0 Or Range("D6").Value = "" Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E6").Value = 0 Or Range("E6").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F6").Value = 0 Or Range("F6").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G6").Value = 0 Or Range("G6").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H6").Value = "Banka Seçiniz" Or Range("H6").Value = "" Then
MsgBox ("Alıcı Bankayı belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("I6").Value = "İl Kodu" Or Range("I6").Value = "" Then
MsgBox ("İl Kodunu belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("J6").Value = "Þube Seçiniz" Or Range("J6").Value = "" Then
MsgBox ("Alıcı Banka Þubesini belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

'5.SATIR DOLU BOÞ KONTROLÜ
ElseIf Range("B7").Value = 0 And Range("D7").Value = 0 And Range("D7").Value = "" And Range("E7").Value = 0 And Range("E7").Value = "" And Range("F7").Value = 0 And Range("F7").Value = "" And Range("G7").Value = 0 Or Range("G7").Value = "" And Range("H7").Value = "" And Range("H7").Value = "Banka Seçin" And Range("I7").Value = "İl Kodu" And Range("J7").Value = "Þube Seçin" And Range("J7").Value = "" Then

cevap = MsgBox("Kaydetmek istiyor musunuz..?", vbQuestion + vbYesNo, "UYARI")
'
If cevap = vbYes Then

'1.SATIR KAYDET
'
'Sheets("KAYITLIST").Visible = True
'
Sheets("KAYITLIST").Select
'
'ActiveSheet.Unprotect
'
Sheets("KAYITLIST").Select
kayitno = Range("B1").Value
Range("A2").Value = 0
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
'1.SATIR KAYDET BİTTİ
'
'2.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'2.SATIR KAYDI BİTTİ
'..................................
'3.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'
'3.SATIR KAYDI BİTTİ
'4.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'4.SATIR KAYDET BİTTİ
End If
'5.SATIR DOLUYSA ALAN KONTROLÜ YAP
ElseIf Range("B7").Value = 0 Or Range("B7").Value = "" Then
MsgBox ("İşlem Tutarını girmediniz.. Lütfen eksiksiz doldurunuz..!")

ElseIf Range("D7").Value = 0 Or Range("D7").Value = "" Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E7").Value = 0 Or Range("E7").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F7").Value = 0 Or Range("F7").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G7").Value = 0 Or Range("G7").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H7").Value = "Banka Seçiniz" Or Range("H7").Value = "" Then
MsgBox ("Alıcı Bankayı belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("I7").Value = "İl Kodu" Or Range("I7").Value = "" Then
MsgBox ("İl Kodunu belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("J7").Value = "Þube Seçiniz" Or Range("J7").Value = "" Then
MsgBox ("Alıcı Banka Þubesini belirtmediniz..! Lütfen eksiksiz doldurunuz..!")
'
'6.SATIR DOLU BOÞ KONTROLÜ
ElseIf Range("B8").Value = 0 And Range("D8").Value = 0 And Range("D8").Value = "" And Range("E8").Value = 0 And Range("E8").Value = "" And Range("F8").Value = 0 And Range("F8").Value = "" And Range("G8").Value = 0 Or Range("G8").Value = "" And Range("H8").Value = "" And Range("H8").Value = "Banka Seçin" And Range("I8").Value = "İl Kodu" And Range("J8").Value = "Þube Seçin" And Range("J8").Value = "" Then
cevap = MsgBox("Kaydetmek istiyor musunuz..?", vbQuestion + vbYesNo, "UYARI")
'
If cevap = vbYes Then
'1.SATIR KAYDET
'
'Sheets("KAYITLIST").Visible = True
'
Sheets("KAYITLIST").Select
'
'ActiveSheet.Unprotect
'
Sheets("KAYITLIST").Select
kayitno = Range("B1").Value
Range("A2").Value = 0
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K3").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
'1.SATIR KAYDET BİTTİ
'
'2.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K4").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'2.SATIR KAYDI BİTTİ
'..................................
'3.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K5").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'
'3.SATIR KAYDI BİTTİ
'4.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K6").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'4.SATIR KAYDET BİTTİ
'5.SATIR KAYDET
'
Sheets("KAYITLIST").Select
Range("B1").Select
kayitno = Range("B1").Value
Range("A" & kayitno).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.NumberFormat = "General"
'
'İÞLEM ÞUBESİ
Sheets("KRED-EFT").Select
Range("D1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("B" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'TARİH
Sheets("KRED-EFT").Select
Range("C1").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("C" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI RAKAM
Sheets("KRED-EFT").Select
Range("B7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("D" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İÞLEM TUTARI YAZI
Sheets("KRED-EFT").Select
Range("C7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("E" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN
Sheets("KRED-EFT").Select
Range("D7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("F" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'GÃ?NDEREN HSP NO
Sheets("KRED-EFT").Select
Range("E7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("G" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI
Sheets("KRED-EFT").Select
Range("F7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("H" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI HSP NO
Sheets("KRED-EFT").Select
Range("G7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("I" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI BANKA
Sheets("KRED-EFT").Select
Range("H7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("J" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'İL KODU
Sheets("KRED-EFT").Select
Range("I7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("K" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'ALICI ÞUBE
Sheets("KRED-EFT").Select
Range("J7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("L" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'AÇIKLAMA
Sheets("KRED-EFT").Select
Range("K7").Select
Selection.Copy
Sheets("KAYITLIST").Select
Range("M" & kayitno).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'
'5.SATIR KAYDET BİTTİ
End If
'6.SATIR DOLUYSA ALAN KONTROL
ElseIf Range("B8").Value = 0 Or Range("B8").Value = "" Then
MsgBox ("İşlem Tutarını girmediniz.. Lütfen eksiksiz doldurunuz..!")

ElseIf Range("D8").Value = 0 Or Range("D8").Value = "" Then
MsgBox ("Gönderen şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("E8").Value = 0 Or Range("E8").Value = "" Then
MsgBox ("Gönderenin hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("F8").Value = 0 Or Range("F8").Value = "" Then
MsgBox ("Alıcı şahıs/firma adını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("G8").Value = 0 Or Range("G8").Value = "" Then
MsgBox ("Alıcı hesap numarasını belirtmediniz..! Lütfen eksiksiz doldurunuz..!")

ElseIf Range("H8").Value = "Banka Seçiniz
 
S

sozgul

Katılım
1 Ocak 2006
Mesajlar
13
leventm,

Merhaba, kodları yazdım ama henüz bir yanıt alamadım. çözebilecek miyiz dersiniz..?
 
L

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Elbette çözülecek ama, kodlarınızda çok fazla copy paste satırları var, gördüğüm kadar ile bunları birleştirerek çok daha kısa bir kod yazılabilir fakat bir örnek dosya ile ne yapmak istediğinizi izah derseniz sanırım sorunu daha kolay çözeriz.
 
S

sozgul

Katılım
1 Ocak 2006
Mesajlar
13
Makro// Procedure Too Large Hata Mesajı // örnek dosya

Ã?rnek dosya ekte. Yapmak istediğim şey sayfalardaki 15 satır da yer alan bilgileri hücre dolu mu boş mu kontrol edip doluysa KAYITLIST sayfasına kaydetmek. Daha önce Yazmış oldugum kodlarda satır boşsa önceki satırları kaydediyor doluysa o satırdaki hücrelerde eksik var mı kontrol edip varsa uyarı veriyor. Eksik yoksa sonraki satırları kontrol edip boş satıra kadar olan satırları kaydediyor. BU da baya fazla kod gerektirdiğinden procedure'e sığmıyor.

Ekte örnek dosyayı gönderiyorum. Teşekkürler..

Dosyayı gönderemiyorum çünkü max 512 KB izin veriyor sistem. Benim dosya 6 MB. Mesaj gelen web adresine göndersem olur mu?
 
S

sozgul

Katılım
1 Ocak 2006
Mesajlar
13
Dosyayı maile gönderdim, ulaştı mı acaba?
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst