Veri Aktarımı

[serdarbarak]

Sevgili Arkadaşlar Öncelikle hepinizin emeğine ve yüreğine sağlık. Vb hakkında hiçbir bilgim olmamasına rağmen sizlerin dolayısıyla da bu sitenin sayesinde bir şeyler yapmaya başladım. Ama sıfırdan başlayınca insan tıkanıyor bir yerde.Tıkanınca bu işten vazgeçmek istemiyorum işimi görecek bir sürü program var ama insanın kendi emeği ile yapması ayrı bi güzellik o yüzden Aşağıda belirtiğim soruna yardımcı olursanız sevinirim.



Bir buton aracılığı ile userforma girilen verileri excell sayfasına aktarabildim.buraya kadar her şey normal . Ancak bu sayfaya veri aktardığım esnada macro aracılığıyla aynı verileri Ana Sayfamda Veri/Doğrulama ile listelediğim isimlerden hangisi açıksa o isimle daha önceden oluşturduğum sayfaya gidip en son dolu satırdan sonraki satıra kayıt edebilmek.

Veri Aktarma ile ilgili tüm bilgilere baktım ama sorunu çözemedim. Acemiliğime verin lütfen
Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Bir tane örnek dosya ekleyiniz ve gerekli açıklamaları üzerine yazınız.

 

[serdarbarak]

Dosya Ekte İlginize teşekkürler

Dosya ekte. Macrolar kısmı acemiliğimden biraz karışık kusura bakmayın. YArdımlarınızı bekliyorum

 

[serdarbarak]

Arkadaşlar

Arkadaşlar Yardımlarınızı bekliyorum. Lütfen yardım edermisiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Sheets("Memur İzin").Select
Range("b2").Value = TextBox1.Text
Range("b3").Value = TextBox2.Text
Range("b4").Value = DTPicker1.Value
Range("b5").Value = DTPicker2.Value
Range("b6").Value = TextBox3.Text
Sheets("Memur İzin").Select
sat = Sheets("İzin Kayıt").Cells(65536, "B").End(xlUp).Row + 1
With Sheets("İzin Kayıt")
.Cells(sat, "A").Value = Range("b1").Value
.Cells(sat, "B").Value = Range("b2").Value
.Cells(sat, "C").Value = Range("b3").Value
.Cells(sat, "D").Value = Range("b4").Value
.Cells(sat, "E").Value = Range("b5").Value
.Cells(sat, "F").Value = Range("b6").Value
End With
[COLOR="Red"]sat = Sheets(Sheets("Ana Sayfa").Range("A1").Value).Cells(60, "B").End(xlUp).Row + 1
If sat >= 51 Then
    MsgBox "Satır doldu..!!" & vbLf & "Kişi sayfasına kayıt yapılmadı..!!", vbCritical, "UYARI"
    GoTo son
End If

With Sheets(Sheets("Ana Sayfa").Range("A1").Value)
.Cells(sat, "B").Value = Range("b2").Value
.Cells(sat, "C").Value = Range("b3").Value
.Cells(sat, "D").Value = Range("b4").Value
.Cells(sat, "E").Value = Range("b5").Value
.Cells(sat, "F").Value = Range("b6").Value
End With
son:
MsgBox "Kayıt Akatarıldı..!!", vbOKOnly + vbInformation, "KAYIT"[/COLOR]End Sub

 

[serdarbarak]

Teşekkürler

Sevgili Orion2 beni büyük bir sıkıntıdan kurtardınız teşekkür ederim. emeğinize sağlık