• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Rol kodunda bulunan gorevleri alt alta getirme

M

MURATSO

Katılım
3 Nisan 2014
Mesajlar
173
Excel Vers. ve Dili
excel 2010
Merhaba,
Yapmak istedigim sey sheet1 deki A kolonunda bulunan rol kodunu ve D koloninda bulunan rol kodunu sheet2 deki A kolonunda arayip sheet2 C kolonunda karsilik gelen gorev adlarini eklemek. Yardimci olabilirseniz cok sevinirim.
 

Ekli dosyalar

Merhaba,

Kısayol olarak Sheet1'de "D" ve "E" sütunlarını "A" ve "B" sütununa karşılık gelecek şekilde alt alta birleştirin ve Sheet2'deki C2 hücresine
=VLOOKUP(A:A;Sheet1!A2:B912;2;0)
Genişletmek için tıkla ...
kodunu yapıştırıp aşağı doğru çekin. Talebiniz karşılanacaktır. Umarım doğru anlamışımdır :)

İyi çalışmalar.
 
Merhaba,

destek için teşekkür ederim. Yalnız sheet1 de ki mevcut durumun bozulmaması gerekiyor. Farklı bir öneriniz var mı? Sonuçların shee1 de düzenlenmesi ve gerekiyor ise yeni bir satır açarak altına devam etmesi lazım.
 
Örneğin 41 insan Kaynakları Onay rolüne karşılık gelen birden fazla mission varsa alt alta eklemeli

41 İnsan Kaynakları Onay İnsan Kaynakları Direktörü
41 İnsan Kaynakları Onay İnsan Kaynakları Müdürü
41 İnsan Kaynakları Onay İnsan Kaynakları Müdür Yardımcısı
 
Bahsettiğim yapıyı formüllerle beceremedim. O yüzden Macro ile olabilir diye düşünmüştüm. yardım ricası ile
 
Son düzenleme:
bu konuda destek olabilecek varsa çok sevinirim gerçekten.
 
Merhaba ilgilenebilecek bir ustad var mi acaba :) cok ihtiyacim var buna ama hani mahsuru yoksa tabi.
Tesekkurler tekrar

Detay bilgi gerekirse iletebilirim. çok teşekkür ederim.
 
Son düzenleme:
Arkadaslar merhaba, son kez bir sansimi deneyeyim dedim :) bu konuda destek olabilecek varsa cok minnettar olurum. Desteginiz icin tesekkur ederim tekrar.
Syg.
 
Öncelik açıklanması gerken bir durum var.
Sayfa 1 için iki ayrı kriter vermişsiniz ancak sayfa 2 de sadece bir tane rol var.

Sonuç almak istiyorsanız, bir kaç tane bir satırlı, iki satırlı, 3 satırlı gibi örnekler seçip bunların sonuçlarını ayrı bir sayfada sonuç sayfası diye göstermeniz gerekir.

Sayfa 1 deki aşağıdaki kodların karşısına ne gelecek.
9985 Ticari PY 165 GM Ticari Satış ve Pazarlama
9985 Ticari PY 252 GM TICARI BANKACILIK
9985 Ticari PY 310 Kredi Tahsis Giriş
9985 Ticari PY 417 Cari İşlemler
9985 Ticari PY 472 KREDİ TAHSİS-SEVİYE 1
9985 Ticari PY 473 KREDİ TAHSİS-SEVİYE 2
9985 Ticari PY 479 Kredi Yönetimi Onay
9985 Ticari PY 480 Kredi Yönetimi Giriş
9985 Ticari PY 540 SUBELER DESTEK
9985 Ticari PY 2522 GM İŞLETME BANKACILIK
9985 Ticari PY 9130 Ticari Müdür Onay
9985 Ticari PY 9982 Ticari Bölge Müdürü
9985 Ticari PY 9983 Ticari Şube Müdürü

Sayfa 2 de bunlar var,
9985 Ticari PY KOBİ Bankacılığı Uzmanı
9985 Ticari PY KOBİ Bankacılığı Müdür Yardımcısı
9985 Ticari PY Ticari Bankacılık Müdürü
9985 Ticari PY Ticari Bankacılık Uzmanı
9985 Ticari PY Yardımcı KOBİ Müşteri Temsilcisi (Müdür Yardımcısı)
9985 Ticari PY KOBİ Bankacılığı Kıdemli Uzmanı
9985 Ticari PY Ticari Bankacılık Müdür Yardımcısı
9985 Ticari PY Ticari Bankacılık Kıdemli Uzmanı
9985 Ticari PY KOBİ Bankacılığı Müdür Yardımcısı - Rapor
9985 Ticari PY KOBİ Bankacılığı Müdürü
9985 Ticari PY KOBİ Bankacılığı Uzmanı_RM
 
Merhaba
Excele sonuc adinda bir sheet daha ekledim. Birkac satirda olmasini istedigim sekilde manuel guncelleme yaptim. Umarim faydali olmustur. Aslında temel olarak sheet 1 de bulunan rollerde sheet2 de olan hangi mission kodları varsa ilgili rolün karşısına ve fazlaysa altına doğru eklenmesi. Sheet1 deki durum bir kural olduğundan karşılık olarak bozulmaması da gerekiyor. Biraz zor bir işlem olabilir yapılamıyor da olabilir :( manuel yapması çok zor olduğundan belki bir macrosu yapılabilir diye desteğinizi almak istedim. Zaman alacak bir şey ise de vaktinizi almak istemem. Kolay ise ve destek olabilirseniz çok sevinirim. Çok teşekkür ederim tekrar.
 

Ekli dosyalar

Son düzenleme:
MURATSO' Alıntı:
Merhaba
Excele sonuc adinda bir sheet daha ekledim. Birkac satirda olmasini istedigim sekilde manuel guncelleme yaptim. Umarim faydali olmustur.
Genişletmek için tıkla ...

Düzeltme;
Önce sayfa1 deki rol kodu sayfa2 de bulunup c deki değeri , sayfa1 deki c ye yazılır.
Sonra sayfa1 deki onaycı kodu, sayfa2 de bulunup c deki değeri sayfa1 deki f ye yazılır. Bu kod birden fazla ise a,b,c, aşağı satır açıp kopyalanıp çoğaltırıp ve f ye yeni değerler yazılır.

Doğru mudur?
 
Son düzenleme:
asri' Alıntı:
Düzeltme;
Önce sayfa1 deki rol kodu sayfa2 de bulunup c deki değeri , sayfa1 deki c ye yazılır.
Sonra sayfa1 deki onaycı kodu, sayfa2 de bulunup c deki değeri sayfa1 deki f ye yazılır. Bu kod birden fazla ise a,b,c, aşağı satır açıp kopyalanıp çoğaltırıp ve f ye yeni değerler yazılır.

Doğru mudur?
Genişletmek için tıkla ...


Merhaba,

evet, bu arada eğer sayfa 1 deki f değerine yazılan değer aşağıya doğru çoğalırsa a, b ve c değerleri de aşağıya doğru çoklanması gerekiyor.
Bu arada sayfa 1 deki rol koduna karsilik sayfa 2 de birden fazla c degeri olabilir.
 
Son düzenleme:
Aşağıdaki şekilde deneyiniz.
Sayfa1 de C kolonunda değer var ise arama ve ekleme yapmaz.
Her iki sayfa her zaman sıralı ise program biraz daha hızlandırılabilir.
Bunun için, kodun içindeki aşağıdaki kodun başındaki ' tırnak işaretini kaldırın.
'If sh2rol > sh1rol Then Exit For

Kod: 
Sub ekle()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Set sh1 = Sheets("Sheet1")
   Set sh2 = Sheets("Sheet2")
   sh1sonsatir = sh1.Cells(Rows.Count, "A").End(3).Row
   sh2sonsatir = sh2.Cells(Rows.Count, "A").End(3).Row
   For i1 = sh1sonsatir To 3 Step -1
     sh1rol = sh1.Cells(i1, "A").Value
     sh1onay = sh1.Cells(i1, "D").Value
     sh1name = sh1.Cells(i1, "C").Value
     If sh1name <> "" Then GoTo atla1
     
     For i2 = 2 To sh2sonsatir
        sh2rol = sh2.Cells(i2, "A").Value
        sh2mission = sh2.Cells(i2, "C").Value
        If sh1rol = sh2rol Then
           sh1.Cells(i1, "C").Value = sh2mission
           eskirol = 0
           If sh1onay = 585 Then
              a = a
           End If
           For i3 = 2 To sh2sonsatir
              sh2rol = sh2.Cells(i3, "A").Value
    
              'If sh2rol > sh1rol Then Exit For
              sh2mission = sh2.Cells(i3, "C").Value
              If sh1onay = sh2rol And eskirol <> sh2rol Then
                 sh1.Cells(i1, "F").Value = sh2mission
                 eskirol = sh2rol
              ElseIf sh1onay = sh2rol And eskirol = sh2rol Then
                 Rows(i1 + 1 & ":" & i1 + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                 sh1.Cells(i1 + 1, "A").Value = sh1.Cells(i1, "A").Value
                 sh1.Cells(i1 + 1, "B").Value = sh1.Cells(i1, "B").Value
                 sh1.Cells(i1 + 1, "C").Value = sh1.Cells(i1, "C").Value
                 sh1.Cells(i1 + 1, "D").Value = sh1.Cells(i1, "D").Value
                 sh1.Cells(i1 + 1, "E").Value = sh1.Cells(i1, "E").Value
                 sh1.Cells(i1 + 1, "F").Value = sh2mission
                 eskirol = sh2rol
              End If
              
           Next i3
           'Exit For
        End If
     Next i2
atla1:
   Next i1
   
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub
 

Ekli dosyalar

Son düzenleme:
Merhabalar,

Kod için çok teşekkür ederim. F kolonu için tam istediğim gibi çalışıyor. Fakat C kolonunda rol koduna karşılık gelen ilk değeri alıyor sadece. aslında 141 rol kodunun içinde bulunan tüm görev adlarının C kolonunda alt alta sıralanması ve her bir görev adının yine 141 e karşılık gelen tüm görevlere karşılık olarak F kolonunda gelmesi gerekiyor. Örneğin

141 rol kodunda bulunan Piyasalar Müdür Yardımcısı görevi karşısına yine 141 rol kodunda yer alan bu rolde dahil 6 rolün sıralanması, aşağıda belirttim. 141 rol de 6 tane görev var ve her bir görevin karşısına 6 görev gelecek şekilde sıralanması gibi.

141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Müdür Yardımcısı
141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Stajyeri
141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Grup Müdürü
141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Direktörü
141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Müdürü
141 DEALER Piyasalar Müdür Yardımcısı 141 DEALER Piyasalar Uzmanı

141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Müdür Yardımcısı
141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Stajyeri
141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Grup Müdürü
141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Direktörü
141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Müdürü
141 DEALER Piyasalar Müdürü 141 DEALER Piyasalar Uzmanı

141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Müdür Yardımcısı
141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Stajyeri
141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Grup Müdürü
141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Direktörü
141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Müdürü
141 DEALER Piyasalar Uzmanı 141 DEALER Piyasalar Uzmanı

141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Müdür Yardımcısı
141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Stajyeri
141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Grup Müdürü
141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Direktörü
141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Müdürü
141 DEALER Piyasalar Grup Müdürü 141 DEALER Piyasalar Uzmanı
 
MURATSO' Alıntı:
..141 rol kodunda bulunan Piyasalar Müdür Yardımcısı görevi karşısına yine 141 rol kodunda yer alan bu rolde dahil 6 rolün sıralanması, aşağıda belirttim. 141 rol de 6 tane görev var ve her bir görevin karşısına 6 görev gelecek şekilde sıralanması gibi..ı
Genişletmek için tıkla ...

Koddaki Exit For a ' tırnak koyup dener misiniz.
Kod güncellendi.

Kod: 
           Next i3
           'Exit For
        End If
 
Sizin gösterdiğiniz şekilde tırnak var ama ? nasıl bir tırnak koymalıyım ? Exit For yeşil renkte
Next i3
'Exit For
End If
 
MURATSO' Alıntı:
Sizin gösterdiğiniz şekilde tırnak var ama ? nasıl bir tırnak koymalıyım ? Exit For yeşil renkte
Next i3
'Exit For
End If
Genişletmek için tıkla ...

İlk gönderdiğim kod da yoktu. Ben az önce ekledim.
siz kodu güncellediniz mi?


Mesajıma dosya eklendi.
 
elleriniz dert görmesin çok teşekkür ederim tam istediğim gibi olmuş. büyük bir yükten kurtardınız. :):):):) ne kadar teşekkür etsem azdır :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst