Bir sayfadaki verileri başka bir sayfaya aktarma ve tekrar çağırma

[smile66]

Sayın Hocalarım benim birkaç konuda yardıma ihtiyaç var.
1- Yüklediğim dosyadaki DATA sayfasındaki alanlara gerekli bilgileri girince KAYIT sayfasındaki gerekli alanlara KADIN-ERKEK ayrı yarı otomatik aktarmasını istiyorum ve daha sonra DATA sayfasındaki "Bilgileri Getir" hücresine daha önce kaydeedilen TC kimlik numarasını yazdığımda KAYIT sayfasındaki gerekli bilgileri DATA sayfasındaki gerekli yerlere getirmesini istiyorum.
2- Herhangi bir hücredeki bilgiyi Dosya ismi nasıl yapabiliriz.

Sorum biraz uzun oldu kusuruma bakmayın hakkınızı helal edin. Yardımınızı bekliyorum. Saygılarımla.

Altın üye olmadığım için dosyamı Yandex Disk'e yükledim.

https://yadi.sk/i/zMOzx1eDZYEoJ

 

[Emir Hüseyin Çoban]

. . .

KAYIT sayfasında KADIN-ERKEK nasıl ayrı kaydedecek.
Bir sütun daha ekleyip, Cinsiyet yazdırmak yeterli olur mu ?

. . .

 

[smile66]

Hocam orada KADIN-ERKEK derken aynı düzende KADIN'a ait bilgiler bir satıra, ERKEK'e ait bilgiler alttaki satıra
heryeni kayıtta böyle devam edip gidecek..

 

[Emir Hüseyin Çoban]

. . .

İnceleyeyim, üzerinde çalışır eklerim.

Tarihlerin yazıyla kısmı daha basite çevrilebilir. Yazı sayfası gereksiz.

. . .

 

[smile66]

teşekkür ederim.
haklısınız yazı sayfası gereksiz ama ben başka türlü yapmadım
yani makro ile veya formülle ekleyemedim ondan dolayı YAZI sayfasını ekledim.

 

[Emir Hüseyin Çoban]

. . .

Kayıt sayfasındaki Seri No,
E3 ve K3 hücrelerinin birleşimi şeklinde mi olacak.

Örneğin AB-123456 şeklinde.

Birde Kayıt sayfasından ortalama kaç satırlık veri olur, ona göre hızlı sonuç üretecek birşeyler yapayım.

. . .

 

[smile66]

Hüseyin Bey Seri ve No birleşik olup olmaması önemli değil ama çağırınca ayrı ayrı hücrelere gelmesi gerekiyor
Kayıt sayfası 500 satır civarında olabilir.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/khnS-KffZbtTW

. . .

 

[smile66]

Teşekkür Hüseyin Bey indiriyorum..

 

[smile66]

Hüseyin Bey kusura bakmayın geç cevap veriyorum, dünden bu yana internetim yoktu.
Hüseyin bey YAZI kısmı güzel olmuş teşekkür ederim.
Ama Sayfadan sayfa Veri Aktarma ve Geri Çağırma işlemi olmamış yada bende olmuyor.

 

[Emir Hüseyin Çoban]

. . .

Bende sorunsuz çalışıyor. Kullanımı ile ilgili GİF yüklüyorum. İzleyiniz.

. . .

 

[smile66]

Tamam oldu Hüseyin Bey, Allah razı olsun.
1- Hüseyin Bey ben o KAYIT sayfasındaki veriler bölümünü Sıra Numarasına kadar yapmıştım Daha fazla veri (verildiği yer, veriliş nedeni ... gibi) eklemem için ne yapmam gerekir.
2- Makro Güvenlik uyarısı exceli her açtoğımda çıkıyor bunu nasıl kapabilirim.
3- Birde ben Dosyası Farklı Kaydet veya Kaydet dediğimde Erkeğin Adı-Bayanın Adı ve Soyadı (Ali-Ayşe MUTLU) gibi nasıl kaydedebilirim.
4- Bu sorum başka dosyam için excel içinde arama motoru birşey nasıl yapabilirim acaba?

Sizi yorduğum için hakkınız helal edin
Şimdiden teşekkürler, saygılarım.

 

[Emir Hüseyin Çoban]

Tamam oldu Hüseyin Bey, Allah razı olsun.
1- Hüseyin Bey ben o KAYIT sayfasındaki veriler bölümünü Sıra Numarasına kadar yapmıştım Daha fazla veri (verildiği yer, veriliş nedeni ... gibi) eklemem için ne yapmam gerekir.
2- Makro Güvenlik uyarısı exceli her açtoğımda çıkıyor bunu nasıl kapabilirim.
3- Birde ben Dosyası Farklı Kaydet veya Kaydet dediğimde Erkeğin Adı-Bayanın Adı ve Soyadı (Ali-Ayşe MUTLU) gibi nasıl kaydedebilirim.
4- Bu sorum başka dosyam için excel içinde arama motoru birşey nasıl yapabilirim acaba?

Sizi yorduğum için hakkınız helal edin
Şimdiden teşekkürler, saygılarım.

. . .

1-
SK.Cells(Skson, "F") = SD.Range("G7")
SK.Cells(Skson, "G") = SD.Range("S7")
SK.Cells(Skson, "H") = SD.Range("H8")

gibi kod satırlarını ilgili hücre adreslerine göre çoğaltmalısınız.

2- Makro güvenlik seviyesini düşük olarak ayarlayın.

3- Sadece data sayfasını mı kaydetmek istiyorsunuz. Form gibi.
Office 2007 ve üzeri bir sürüm kullanıyorsanız PDF olarak kaydede bilirsiniz.
XLS olmasını isterseniz yardımcı bir sayfa kullanarak, oraya kopyala-özel yapıştır Değerleri yaptıktan sonra
Yeni kitap olarak kaydetmek gerekir.
Makrolar ile yapılabilir.

4- Ctrl + F (bul) özelliği işinizi görmüyor mu.
Daha farklı bir arama sistemi mi istiyorsunuz.

. . .

 

[smile66]

1- Teşekkür ederim,
2- Tamam oldu.
3- Farketmez bütün dosyada kayıt olabailir ama benim istediğim Erkek Adı-Kadın Adı ve Soyadı çerklinde yeni bir dosya kaydedilsin.
4- Ctrl+F de işimi görürü ama o uğratırıyor aynen Google arama yapar gibi bulunduğum excel sayfasında veya tüm dosyada arama yapmasını istiyorum.
5- Ayrıca Hüseyin Bey bu gif yapma programınızın adı nedir.
Teşekkür ederim, sağolun....

 

[Emir Hüseyin Çoban]

3- Farketmez bütün dosyada kayıt olabailir ama benim istediğim Erkek Adı-Kadın Adı ve Soyadı çerklinde yeni bir dosya kaydedilsin.
4- Ctrl+F de işimi görürü ama o uğratırıyor aynen Google arama yapar gibi bulunduğum excel sayfasında veya tüm dosyada arama yapmasını istiyorum.
5- Ayrıca Hüseyin Bey bu gif yapma programınızın adı nedir.
Teşekkür ederim, sağolun....

. . .

3- Office sürümünüz PDF destekliyor ise kodlar masaüstüne kayıt yapar.

Sub KOD_PDF()
    On Error Resume Next
    Dim SD As Worksheet
    Set SD = Sheets("DATA")
    YOL = CreateObject("WScript.Shell").specialfolders("Desktop") & "\"
    isim = SD.Range("AI5").Value & "-" & SD.Range("E5").Value & " " & SD.Range("AJ6")
    SD.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    YOL & isim & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
End Sub

4- Bu farklı bir soru. Yeni konu açarak örnek dosya üzerinde ne yapmak istediğinizi anlatın.

5- Camtasia Studio 8 kullanıyorum.

. . .

 

[smile66]

Tamam Hüseyin Bey, 5. sorumu pazartesi günü örnek dosya yükleyerek kendi konu başlığı altında yardımınızı bekleyeceğim. Malum bugün haftasonu tatil, benim evimde bilgisayarım yok.
Allaha emanet olun hayırlı haftasonları...