Koşula Göre Satıra Veri Yazma Hk.

[ByChilavert]

Merhaba

"Veri" Sayfasında A1 Hücresinde "İlköğretim - Lise - Üniversite" adı altında seçeneklerim mevcut. A1 hücresinde seçim yaptıktan sonra ilgili bilgileri doldurduktan sonra "09-Personel_Envanteri" tablosunda seçimini yapmış olduğum satırın karşısında yazmasını istiyorum.

Örnek Veri sayfasında lise seçeneğini seçip ilgili bilgileri yazdığım zaman 09-Personel_Envanteri tablosunda Lise satırının yanına yazmasını istiyorum. Bu konu hakkında yardım edebilir misiniz.

...Link...

 

[çıtır]

B3 Hücresine kopyalayınız.Sağa ve aşağı doğru çoğaltınız.

=EĞER(ESAYIYSA(MBUL(VERİ!$A$2;$A3));KAYDIR(VERİ!$A$2;;SÜTUN(A$1));"")

 

[YUSUF44]

Aşağıdaki makroyu kullanabilirsiniz. VERİ sayfasında Doktora için seçim belirtmemişsiniz. Ben koda DOKTORA olarak ekledim, siz de veri doğrulamaya ekleyin:

Sub okul()
Set s1 = Sheets("VERİ")
Set s2 = Sheets("09-Personel_Envanteri")
If [A2] = "LİSE" Then sat = 6
If [A2] = "İLKÖĞRETİM" Then sat = 7
If [A2] = "ÜNİVERSİTE" Then sat = 5
If [A2] = "YÜKSEK LİSANS" Then sat = 4
If [A2] = "DOKTORA" Then sat = 3

s2.Cells(sat, "B") = s1.[B2]
s2.Cells(sat, "C") = s1.[C2]
s2.Cells(sat, "D") = s1.[D2]
End Sub

 

[ByChilavert]

B3 Hücresine kopyalayınız.Sağa ve aşağı doğru çoğaltınız.

=EĞER(ESAYIYSA(MBUL(VERİ!$A$2;$A3));KAYDIR(VERİ!$A$2;;SÜTUN(A$1));"")

Merhaba

Affınıza sığınaraktan ekte gönderdiğim örnek dosyada formül çalışıyor ama farklı bir çalışmada bu formülü gerekli düzeltmeleri yapmama rağmen çalıştıramadım.
Ekte gönderdiğim dosyaya uygulayabilir misiniz

... Link....

 

[çıtır]

Kusura bakmayın .Son dosyanızın örnek dosya ile bir ilgisini bulamadım.

 

[ByChilavert]

Tablo Boş gelmiş kusuruma bakmayın. Veri Girişi sayfasında (Düzey - Lise) - (Mezun Olduğu Okulun Adı - Endüstri Meslek Lisesi) - (Bölümü - Metal İşleri) - (Mezuniyet Yılı - 2000) olarak yazıyor. Bu alana yazdığım bilgiler Personel Envanteri alanında ilgili alana yazmasını istiyorum bunu bir türlü başaramadım. Sizin gönderdiğiniz formulü bu alana uygulayamadım. Zamanınız varsa bakabilir misiniz.

 

[çıtır]

I16 Kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER(ESAYIYSA(MBUL('VERİ GİRİŞİ'!$G$38;$A16));KAYDIR('VERİ GİRİŞİ'!$G$38;;1);"")

X16 Kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER(ESAYIYSA(MBUL('VERİ GİRİŞİ'!$G$38;$A16));KAYDIR('VERİ GİRİŞİ'!$G$38;1;1);"")

AG16 Kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER(ESAYIYSA(MBUL('VERİ GİRİŞİ'!$G$38;$A16));KAYDIR('VERİ GİRİŞİ'!$G$38;1;);"")

 

[YUSUF44]

Çok özür dileyerek sormak istiyorum : neden doğrudan ikinci sayfadaki yerlerine yazmak yerine ilk sayfaya yazıp ikinci sayfaya aktarmak için uğraşıyorsunuz?

 

[ByChilavert]

Zaman ayırıp ilgilendiğiniz için teşekkür ederim. İyi çalışmalar

 

[çıtır]

Zaman ayırıp ilgilendiğiniz için teşekkür ederim. İyi çalışmalar

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[ByChilavert]

Çok özür dileyerek sormak istiyorum : neden doğrudan ikinci sayfadaki yerlerine yazmak yerine ilk sayfaya yazıp ikinci sayfaya aktarmak için uğraşıyorsunuz?

İlk sayfa personele ait bilgilerin dolduğu sayfa diğer sayfa ise iş güvenliği birimi tarafından istenen matbu form. Daha önce manuel olarak kes / yapıştır yapıyordum. Şimdi otomatik oldu. Teşekkürler