yeni kaydı sıradaki hücreye yazdırma

[hamit197511]

merhaba
ekteki dosyada kaydete basınca verileri diğer sayfaya yazsın tekrar kayıt yapınca sıradaki hücreye yapsın istiyorum forumda aradım ama bulamadım.

 

[fedeal]

Sub AKTAR()
Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1

Sheets("Sayfa2").Range("A" & Bos_Satir).Value = Sheets("Sayfa1").Range("c1").Value
Sheets("Sayfa2").Range("B" & Bos_Satir).Value = Sheets("Sayfa1").Range("c2").Value
Sheets("Sayfa2").Range("C" & Bos_Satir).Value = Sheets("Sayfa1").Range("c3").Value
Sheets("Sayfa2").Range("d" & Bos_Satir).Value = Sheets("Sayfa1").Range("c4").Value
Sheets("Sayfa2").Range("e" & Bos_Satir).Value = Sheets("Sayfa1").Range("c5").Value
MsgBox "aktarım tamam.", , "fedeal"
End Sub

C1,C2.C3,C4,C5 istemişsiniz ama bilgiler c3,c4,c5,c6,c7 de bunu düzeltip deneyin iyi çalışmalar.

 

[hamit197511]

çok teşekkür ederim kardeşim
ellerine sağlık.

 

[fedeal]

çok teşekkür ederim kardeşim
ellerine sağlık.

Ricaederim iyi çalışmalar.

 

[hamit197511]

...........................

 

[fedeal]

başka arkadaşlarda faydalanmalı sorularınızı burdan yazalım.


birkaç istek mümkünse

--------------------------------------------------------------------------------

emrah kardeşim kusura bakma özel mesajdan yazıyorum ben işyerimizde sık kullanılan ve çıktı alınan izin formu hizmet formu ve vizite kağıdını 1 dosyada toplayıp işlemi otomatikleştirdim izin formu ve hizmet formunu tamamladım vizite kağıdında takıldığım yerlerden biri olan yeni kaydı sıradaki hücreye yazdırma
sorununu senin verdiğin kodla hallettim. hazırladığım dosyayı sana nasıl göndereceğimi bilemediğim için
yeni kaydı sıradaki hücreye yazdırma başlığında mesaja ekledim. eğer vakit bulabilirsen birkaç isteğim var.
1. vif sayfasında personel adı seçilince vifper sayfasından seçilen personelin bilgilerinin alınıp vif şablon sayfasında ilgili bölümlere yazılması.( böyle bi şey mümkün değilse o işi yapabilecek bir öneri )
2.senin verdiğin kodla personel kaydı yapıyorum yeni personel kaydı sayfasında kaydet dedikten sonra bilgileri vifper dosyasında boş satıra yazıyor. burada tüm hücreler dolduralmadan kayıt yapmasın istiyorum.

yardımların ve önerilerin için şimdiden teşekkür ederim kardeşim.


1: vif sablon sayfasının tc kimlik no hücresi için(t9) :
=İNDİS(vifper!A2:N81;KAÇINCI(vifşablon!$T$11;vifper!A2:A81;0);2)
burdaki kırmızı olan 2 vifper sayfası sütunu tc kimlik no 2.sütunda oldugu için 2 yazdım bu mantıkla ötekinleri düzenle

2:İsteginizi yaptım kontrol edin.
saygılar.

 

[fedeal]

bir önceki dosya hata verebilir düzelttim(güncelledim.) iyi çalışmalar.

 

[hamit197511]

eline emeğine sağlık kardeşim tek kelime ile mükemmel oldu.

 

[fedeal]

eline emeğine sağlık kardeşim tek kelime ile mükemmel oldu.

Ricaederim iyi çalışmalar.