Sayfa1 den Sayfa2 ye belirli bilgileri aktarmak

[unur]

Arkadaşlar Sayfa1 deki bazı hücrelerdeki bilgileri Sayfa2 deki son dolu satırdan sonraki boş satıra aktarmak istiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Örnek dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Sub aktar_59()
Dim sh As Worksheet, sat As Long
Set sh = Sheets("Sayfa2")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh.Cells(sat, "A").Value = WorksheetFunction.Max(sh.Range("A2:A" & Rows.Count)) + 1
sh.Cells(sat, "B").Value = Cells(1, "B").Value
sh.Cells(sat, "C").Value = Cells(8, "B").Value
sh.Cells(sat, "D").Value = Cells(11, "B").Value
sh.Cells(sat, "E").Value = Cells(18, "B").Value
sh.Cells(sat, "F").Value = Cells(21, "B").Value
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[unur]

Evren bey çok teşekkürler, elinize sağlık.
Dosyada bahsettiğim ikinci konuyuda dikkate alarak kodlarda revizyon yapabilirmisiniz?
Yani aynı veriler daha önce aktarılmışsa uyarı vermek ve uyarıda kaydet ve iptal seçeneklerinin bulunmasında yardımcı olursanız sevinirim.

 

[Orion1]

Evren bey çok teşekkürler, elinize sağlık.
Dosyada bahsettiğim ikinci konuyuda dikkate alarak kodlarda revizyon yapabilirmisiniz?
Yani aynı veriler daha önce aktarılmışsa uyarı vermek ve uyarıda kaydet ve iptal seçeneklerinin bulunmasında yardımcı olursanız sevinirim.

Veriler derken hangi veriler?
TC no mu,Tarihmi,Görev yerimi?

 

[unur]

Tc ve B8 deki tarih yeterli olur sanıyorum. Mümkünse Tc ve heriki tarih.

 

[Orion1]

her 3 başlıkta bulunursamı kaydedilmeyecek.yoksa sadece biri bulunursamı kaydedilmeyecek.

 

[unur]

Daha önce aktardığımız bilgiler arasında. Tc ve heriki tarih varsa uyarı verecek (her 3 de varsa)Daha önce kayıt yapılmış uyarısı çıkacak; kaydet ve iptal seçenekleri çıkacak. Kaydet dersek kaydedecek iptal dersek kaydetmeyecek.

 

[Orion1]

Daha önce aktardığımız bilgiler arasında. Tc ve heriki tarih varsa uyarı verecek (her 3 de varsa)Daha önce kayıt yapılmış uyarısı çıkacak; kaydet ve iptal seçenekleri çıkacak. Kaydet dersek kaydedecek iptal dersek kaydetmeyecek.

Dosyanız ektedir.

Sub aktar_59()
Dim sh As Worksheet, sat As Long, i As Long, var As Boolean
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 2 To sat - 1
    If sh.Cells(i, "B").Value = Cells(1, "B").Value And _
        sh.Cells(i, "C").Value = Cells(8, "B").Value And _
        sh.Cells(i, "E").Value = Cells(18, "B").Value Then
            If MsgBox("TC no ve 2 tarih birden bulundu!Kayıt etmek istiyormusunuz?", _
                    vbYesNo, "U Y A R I") = vbNo Then Exit Sub
    End If
Next i
sh.Cells(sat, "A").Value = WorksheetFunction.Max(sh.Range("A2:A" & Rows.Count)) + 1
sh.Cells(sat, "B").Value = Cells(1, "B").Value
sh.Cells(sat, "C").Value = Cells(8, "B").Value
sh.Cells(sat, "D").Value = Cells(11, "B").Value
sh.Cells(sat, "E").Value = Cells(18, "B").Value
sh.Cells(sat, "F").Value = Cells(21, "B").Value
Range("B1,B8,B11,B18,B21").Value = ""
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[unur]

Evren bey çok teşekkürler. Kayır etmek istiyormusunuz uyarısında evet dedikten sonra veriler aktarıldı uyarısına tamam deyince tekrar tekrar ilk uyarıya dönüyor. Bunu önlemek için Sayfa1 B sütunundaki verileri temizleyebilirmiyiz?
Gecenin bu vakti zaman ayırdığınız için çok teşekkürler.

 

[Orion1]

Evren bey çok teşekkürler. Kayır etmek istiyormusunuz uyarısında evet dedikten sonra veriler aktarıldı uyarısına tamam deyince tekrar tekrar ilk uyarıya dönüyor. Bunu önlemek için Sayfa1 B sütunundaki verileri temizleyebilirmiyiz?
Gecenin bu vakti zaman ayırdığınız için çok teşekkürler.

8 numaralı mesajda dosyayı güncelledim.

 

[unur]

Evren Bey; Sayfa2 deki bilgileri temizlediğimizde kodlar işlem yapmıyor? Nerede yanlış yapıyorum acaba? İncelerseniz sevinirim.Teşekkürler.

 

[Orion1]

Evren Bey; Sayfa2 deki bilgileri temizlediğimizde kodlar işlem yapmıyor? Nerede yanlış yapıyorum acaba? İncelerseniz sevinirim.Teşekkürler.

yapmaz tabi.
Çünkü orasını kontrol ediyor.
Orada döngüye giriyor.
silmeyin orasını.
Ben size söyledim.8 nolu mesajı güncelledim.Oradaki dosyayı indirin.

 

[unur]

Evren Bey;
8 nolu mesajdakini indirdim.Anladığım kadarıyla en az iki satır verinin bulunması gerekiyor.
Aktarma yaptıktan sonra Sayfa1'deki verilerin silinmesini sağlayabilirsek düşündüğüm şey olmuş olacak.
Emekleriniz için teşekkürler.

 

[Orion1]

Evren Bey;
8 nolu mesajdakini indirdim.Anladığım kadarıyla en az iki satır verinin bulunması gerekiyor.
Aktarma yaptıktan sonra Sayfa1'deki verilerin silinmesini sağlayabilirsek düşündüğüm şey olmuş olacak.
Emekleriniz için teşekkürler.

Sayfa1 deki verileri neden silmek istiyorsunuz?

 

[unur]

Amacım yeni bir işlem için hazır hale getirmek.

 

[Orion1]

Amacım yeni bir işlem için hazır hale getirmek.

Dosyayı güncelledim.
8 nolu mesajdan indirebilrisiniz.

 

[unur]

Teşekkürler Evren Bey; Son güncellemede Sayfa2 deki mükerer kayıt sorgulması çalışmadı ama son güncellemeden önceki dosyaya (Range("B1,B8,B11,B18,B21").Value = "")kodu kopyaladığımda sonuç istediğim gibi oldu.
Evren Bey; öğrenmek açısından soruyorum, aşağıdaki iki satırın farkı nedir? Kullanım yerleri farklımıdır?Range("B1,B8,B11,B18,B21").Value = ""
Range("B1,B8,B11,B18,B21").Delete
Teşekkürler.

 

[Orion1]

Teşekkürler Evren Bey; Son güncellemede Sayfa2 deki mükerer kayıt sorgulması çalışmadı ama son güncellemeden önceki dosyaya (Range("B1,B8,B11,B18,B21").Value = "")kodu kopyaladığımda sonuç istediğim gibi oldu.
Evren Bey; öğrenmek açısından soruyorum, aşağıdaki iki satırın farkı nedir? Kullanım yerleri farklımıdır?Range("B1,B8,B11,B18,B21").Value = ""
Range("B1,B8,B11,B18,B21").Delete
Teşekkürler.

delete ile o hücreyi komple siliyorsunuz .Boşluk atarsanız ise içindeki veriyi sadece siliyorsunuz.siz ""(boşluk atatyın.)
Sorun çözüldü ise sorun yok.
Kolay gelsin.

 

[unur]

Evren hocam özür dilerim.Kodlar üzerinde şöyle nasıl oluyor böyle nasıl oluyor diye denemeler yaptıktan sonra sorun çözüldü demiştim ama yapamadım.

Soruyu özetlemem gerekirse;
Aşağıdakine ilave olarak sayfa1 deki bilgilerin kayıt edildikten sonra silmekti amacım
İlgilenirseniz sevinirim.

Daha önce aktardığımız bilgiler arasında. Tc ve heriki tarih varsa uyarı verecek (her 3 de varsa)Daha önce kayıt yapılmış uyarısı çıkacak; kaydet ve iptal seçenekleri çıkacak. Kaydet dersek kaydedecek iptal dersek kaydetmeyecek.

 

[Orion1]

Evren hocam özür dilerim.Kodlar üzerinde şöyle nasıl oluyor böyle nasıl oluyor diye denemeler yaptıktan sonra sorun çözüldü demiştim ama yapamadım.

Soruyu özetlemem gerekirse;
Aşağıdakine ilave olarak sayfa1 deki bilgilerin kayıt edildikten sonra silmekti amacım
İlgilenirseniz sevinirim.

sayfa8 de öyle yaptım zaten.bir veriden 2 tane varsa ikaz veriyor.
Sen istersen kaydedebiliyorsun.