Veri Aktar ve Kaydet

[Metin1981]

İyi günler ekteki dosyada ana sayfa üzerindeki sarı renkli hücreleri butonuna bastığımda buradaki veriler Kayıt sayfasında iligili yerlere aktarılabilirmi ?Aktarıldıktan sonra ise dosya otamatik olarak kayıt yapılabilir mi?.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Metin1981]

Sayın Asr çok teşekkür ederim.Sizden ricam butona bastığımzda aktarmak istiyormusunuz diye evet hayır seçeneği konulabilir mi? Birde parti numarası boş ise uyarı verebilirmi?.Yani parti numarasını girmeden aktarım yapılmasın.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Metin55]

Çok Teşekkür Ederim.Sayın Asr35.sizden tekrar bir ricam olacak .4.Nolu mesajınızdaki yapmış olduğunuz koda ilave olarak eğer kayıt sayfasında eğer aynı parti numarası varsa bu parti kayıtta mevcut üzerine tekrar kayıt yapılım mı diye bir uyarı daha verdirebilirmiyiz.?

 

[Metin55]

Arkadaşlar merhabalar;
Aşağıdaki koda şöyle bir ilave daha yapmak mümkünmüdür?
Örnek dosyada kayıt sayfasında aynı parti numarası varsa "bu parti kayıtta mevcut üzerine tekrar kayıt yapalım mı diye bir uyarı daha verdirebilirmiyiz.?

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet, a
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Ana Sayfa")
Set s2 = ThisWorkbook.Worksheets("Kayıt")
If s1.Range("G14") = "" Then 'Aranan Değer
MsgBox "Parti Nosunu Yazmadan Kayıt Yapılamaz  Lütfen Parti Nosunu  Yazınız..." ', vbCritical
Exit Sub
End If
'///////////////////////////////////////////////////////////
a = MsgBox(" Bu Veriyi Kayıt Sayfasına Göndermek İstiyormusunuz?", vbYesNo + vbInformation, "                            Kayıt Sayfasına ")
If a = vbNo Then
Exit Sub
End If
'///////////////////////////////////////////////////////////
sonsatir = s2.Range("B65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 2) = sonsatir - 6
s2.Cells(sonsatir, 3) = sonsatir - 7
s2.Cells(sonsatir, 3) = s1.Cells(14, "G")
s2.Cells(sonsatir, 4) = s1.Cells(14, "I")
s2.Cells(sonsatir, 5) = s1.Cells(9, "G")
s2.Cells(sonsatir, 6) = s1.Cells(7, "N")
s2.Cells(sonsatir, 7) = s1.Cells(8, "N")
s2.Cells(sonsatir, 8) = s1.Cells(9, "N")
s2.Cells(sonsatir, 9) = s1.Cells(10, "N")
s2.Cells(sonsatir, 10) = s1.Cells(11, "N")
s2.Cells(sonsatir, 11) = s1.Cells(12, "N")
s2.Cells(sonsatir, 12) = s1.Cells(13, "N")
s2.Cells(sonsatir, 13) = s1.Cells(14, "N")
s2.Cells(sonsatir, 14) = s1.Cells(15, "N")
'Range("G9,G14,I14").Select
Selection.ClearContents
Application.ScreenUpdating = True
Sheets("Kayıt").Select
Range("A1").Select
MsgBox "Verileriniz Kayıt Sayfasına Aktarılmıştır.", vbInformation
ActiveWorkbook.Save
'Application.Quit
End Sub

 

[Metin55]

Merhabalar ,
Arkadaşlar 6.Nolu mesajımdaki makroya yardımcı olabilirmisiniz?.Saygılar

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
Alıcı Yoksa Uyarı Verir
Parti No Yoksa Uyarı Verir
İstif No Yoksa Uyarı Verir
Mükerrer Kayıt İçin Uyarı Verir
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Metin55]

Çok teşekkür ederim.Sayın Asr size yeterince yük oldum biliyorum.Şöyle birşey olabilir mi?.Aynı veri daha önceden kayıt yapılmşsa üzerine yazabilirmiyiz?

 

[Metin1981]

Çok teşekkür ederim.Sayın Asr size yeterince yük oldum biliyorum.Şöyle birşey olabilir mi?.Aynı veri daha önceden kayıt yapılmşsa üzerine yazabilirmiyiz?

 

[ZorBey_]

Merhaba Sayın Metin1981
Sizin İki Nikiniz Var Galiba Diğeri Metin55
Ayni Veri Olduğu Zaman Mükerrer Uyarısı Veriyor Zaten
Seçenekte Hayır Dediğinizde Ayni Veri Kalmış Olucak.

 

[Metin1981]

Sayın Asr35 parti numarısı aynı olacak diğer verilerde değişiklik yaptığım zaman yine o partinin üzerine kayıt yapacak

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[Metin55]

Çok teşekkür ederim.Sizi bayağı bir uğraştırdım.Ellerinize sağlık

 

[ZorBey_]

Rica Ederim
Kolay Gelsin İyi Çalışmalar.