Kaydet ve temizle sorunu

[mrfq1]

Arkadaşlar ekteki dosyayı incelermisiniz biryerde bir hata var
kaydet ve temizle deyince satırlar yukarı doğru kayboluyor
Birde eksik veri girildiğinde heryere kaydediyor
yardımlarınız için şimdiden teşekkürler

 

[Mustafa MUTLU]

a sayfasına uyarladım
sende diğer sayfalara göre ayarlarsın.

 

[mrfq1]

Teşekkür ederim Mustafa bey
diğer sayfalara uyarlamaya çalıştım ama beceremedim ufak bir yardım daha rica etsem minnettar olucam

 

[Mustafa MUTLU]

Nasıl bir şey istiyorsun ?
Aynı veriler diğer sayfalarada mı kayıt yapacak ?

 

[mrfq1]

a sütununda a yazıyorsa o satırdakilerin a sayfasına b yazıyorsa b sayfasına c yazıyorsa c sayfasına göndermsini istiyorum

 

[Mustafa MUTLU]

a sütununda a yazıyorsa o satırdakilerin a sayfasına b yazıyorsa b sayfasına c yazıyorsa c sayfasına göndermsini istiyorum

Bu kodu denermisiniz..

Option Explicit
Sub Mustafa()
Dim MUTLU1 As Long, MUTLU2 As Long, MUTLU3 As Long, MUTLU4 As Long, Say As Byte, MM, MSTF, Mustafa_MUTLU1, Mustafa_MUTLU2, Mustafa_MUTLU3, Mustafa_MUTLU4
Mustafa_MUTLU1 = "A"
Mustafa_MUTLU2 = "B"
Mustafa_MUTLU3 = "C"
Mustafa_MUTLU4 = "D"
Application.ScreenUpdating = False
MM = 2
For MSTF = 2 To Sheets("VERİ_GİRİŞİ").Cells(65536, "A").End(xlUp).Row
If Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A") = Mustafa_MUTLU1 Then
MUTLU1 = Sheets("a").Range("A65536").End(3).Row + 1
Sheets("a").Cells(MUTLU1, "A") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A")
Sheets("a").Cells(MUTLU1, "B") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "B")
Sheets("a").Cells(MUTLU1, "C") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "C")
Sheets("a").Cells(MUTLU1, "D") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "D")
Sheets("a").Cells(MUTLU1, "E") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "E")
MM = MM + 1
End If
If Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A") = Mustafa_MUTLU2 Then
MUTLU2 = Sheets("b").Range("A65536").End(3).Row + 1
Sheets("b").Cells(MUTLU2, "A") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A")
Sheets("b").Cells(MUTLU2, "B") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "B")
Sheets("b").Cells(MUTLU2, "C") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "C")
Sheets("b").Cells(MUTLU2, "D") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "D")
Sheets("b").Cells(MUTLU2, "E") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "E")
MM = MM + 1
End If
If Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A") = Mustafa_MUTLU3 Then
MUTLU3 = Sheets("c").Range("A65536").End(3).Row + 1
Sheets("c").Cells(MUTLU3, "A") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A")
Sheets("c").Cells(MUTLU3, "B") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "B")
Sheets("c").Cells(MUTLU3, "C") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "C")
Sheets("c").Cells(MUTLU3, "D") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "D")
Sheets("c").Cells(MUTLU3, "E") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "E")
MM = MM + 1
End If
If Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A") = Mustafa_MUTLU4 Then
MUTLU4 = Sheets("d").Range("A65536").End(3).Row + 1
Sheets("d").Cells(MUTLU4, "A") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "A")
Sheets("d").Cells(MUTLU4, "B") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "B")
Sheets("d").Cells(MUTLU4, "C") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "C")
Sheets("d").Cells(MUTLU4, "D") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "D")
Sheets("d").Cells(MUTLU4, "E") = Sheets("VERİ_GİRİŞİ").Cells(MSTF, "E")
MM = MM + 1
End If
Next
Range("A2:E65500").Select
Selection.ClearContents
Range("A2").Select
Application.ScreenUpdating = True
MsgBox "Verileri Aktardım", vbInformation, "Mustafa MUTLU"
End Sub

 

[Mustafa MUTLU]

Olmadı mı ?..
Ben dosyanı indirdim üzerinde denedim çok güzel çalışıyor.

 

[Mustafa MUTLU]

Dosyana uyarladım..
Buyurun....

 

[mrfq1]

eline sağlık

 

[mrfq1]

Mustafa bey birde yanlış veri girildiğinde uyarı verebilirmi.
Yani sayfası olmayan bir veri. a,b,c,d dışında atıyorum z yazdım z adı altında sayfa olmadığından uyarı verebilirmi
anlatabildimmi bilmiyorum iyi geceler

 

[mrfq1]

Mustafa bey şimdi dikkatimi çekti hata
dosyayı yolluyorum
kayıt edilecek veriye dikkat edin kaydet ve temizle dediğiniz zaman
o satırdaki verilerin a sayfasına gitmesi gerekiyor fakat gitmiyor
bu sadece ilk satır a2 b2 c2 d2 e2 ...... için geçerli
a3 ten başlatınca bir sorun yok

 

[Mustafa MUTLU]

Mustafa bey şimdi dikkatimi çekti hata
dosyayı yolluyorum
kayıt edilecek veriye dikkat edin kaydet ve temizle dediğiniz zaman
o satırdaki verilerin a sayfasına gitmesi gerekiyor fakat gitmiyor
bu sadece ilk satır a2 b2 c2 d2 e2 ...... için geçerli
a3 ten başlatınca bir sorun yok

Kardeşim sen satıra A dan sonra bir boşluk bırakmışın o yüzden
Kodumuz Veriyi A ile eşleştiremiyor.

 

[mrfq1]

Verdiğin bilgiler için teşekkür ederim