düşey ara

[dead cities]

ekteki tabloda sheet 1 de bulunan B kolonundaki ingilizce hesap isimlerinin A kolonundaki hesap kodlarına göre, sheet 2 deki B kolonuna gelmesi gerekiyor. düşey aradan yapmaya çalıştım ama olmadı. ilginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Sayfa2 C sütununun biçimini "Genel" olarak ayarladıktan sonra aşağıdaki formülü uygulayınız.

C3 hücresine;

=DÜŞEYARA(A3;Sayfa1!A:C;3;0)

 

[dead cities]

elinize sağlık.

 

[hayatı1]

Düşey ara yardım

arkadaşlar ekli tabloda L sütununda * işareti koyduğum satırı olduğu gibi yanındaki başka bir çalışma sayfasına aktarmak istiyorum. Bu arada tablom verilerini LOGO-navi den çekiyorum. DÜŞEY ARA formülünü hiç kullanmadım. Bu formül ile bana dosya ekinde yardımcı olabilirseniz memnun olacağım. selamlar.

 

[ayberk1]

korhan hocam merhaba
hayatı nın "düşey_ara.xls" istediği düzenlemeyi merak ettim. Bakabildinizmi ?
selamlar

 

[Korhan Ayhan]

Selamlar,

Sn. hayatı aşağıdaki formülü Sayfa1 A2 hücresine uygulayınız. Formül dizi formüldür. Hücreye yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlayınız. Aksi halde doğru sonuç üretmez.

Formülü bu şekilde A2 hücresine uyguladıktan sonra M2 hücresine kadar çoğaltın. Daha sonra 2. satırdaki formülleri aşağıdaki satırlarada sürükleyin.

=EĞER(SATIRSAY(KALAN!$L$9:$L9)<=EĞERSAY(KALAN!$L$9:$L$1000;"*");İNDİS(KALAN!A$9:A$1000;KÜÇÜK(EĞER(KALAN!$L$9:$L$1000="*";SATIR(KALAN!$L$9:$L$1000)-SATIR(KALAN!$L$9)+1);SATIRSAY(KALAN!$L$9:$L9)));"")

 

[hayatı1]

Korhan Hocam emeğinize sağlık,teşekkür ederim.
"KALAN SAYFASINA" BİR MAKRO TUŞU ATAYARAK SAYFA1 E İSTEDİĞİM ZAMAN AKTARABLİRMİYİM.
BU KONUDADA YARDIMCI OLABİLİRSENİZ ÇOK MEMNUN OLACAĞIM.
SELAMLAR.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satır As Long
 
    Set S1 = Sheets("KALAN")
    Set S2 = Sheets("Sayfa1")
 
    Application.ScreenUpdating = False
 
    S2.Range("A2:M65536").ClearContents
 
    Satır = 1
 
    For X = 9 To S1.Range("A65536").End(3).Row
        If S1.Cells(X, "L") = "*" Then
            Satır = Satır + 1
            S2.Range("A" & Satır & ":M" & Satır).Value = S1.Range("A" & X & ":M" & X).Value
        End If
    Next
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    Application.ScreenUpdating = True
 
    If Satır > 1 Then
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
        MsgBox "Aktarlıcak veri bulunamamıştır !", vbExclamation
    End If
End Sub

 

[ayberk1]

ellerinize sağlık çok teşekkür ederim hocam,

 

[ayberk1]

Korhan Hocam Örnek için yardım

Korhan Hocam merhaba, (tabi diğer üstadlara ve dostlara da merhaba, korhan hocam bu dosyada yardımcı olmuştu o yüzden yine korhan hocaya seslendim.
Hocam daha önce verdiğiniz makro ile ekli dosyamda "KALAN" sayfasında L sütunundaki "*" işaretli satırların tamamını "SAYFA1" aktarmıştık. Yine aynı şekilde "KALAN" sayfası D sütunundaki satırlardaki farklı hücre bilgilerine göre aktarma işlemini sayfa2 , sayfa3 ,sayfa4 ....devam ettirebilirmiyiz. Selamlar.

 

[hayatı1]

Korhan Hocam merhaba mesajımı inceleme fırsatınız oldumu hocam, selamlar.

 

[Korhan Ayhan]

Selamlar,

Sn. hayatı,

Sorunuzu aşağıdaki başlığa taşıdım. Sizin sorunuzun bu başlıkla bir alakası yok. Lütfen forum kurallarını takip edin.

http://www.excel.web.tr/showthread.php?t=86572

 

[Korhan Ayhan]

Selamlar,

Sn. ayberk1,

Sizin örnek dosyanızda D sütununda sadece A harfi var. Nasıl bir işlem yapılmasını istiyorsunuz. Detaylı olarak açıklarsanız yardımcı olmaya çalışırım.

 

[hayatı1]

Hocam
"D" SUTUNUNDA EKTE DEĞİŞİKLİK YAPTIM

BU SUTÜNDAKİ SATIRLARDA YAZAN ; ÖRNEĞİN D9 DAKİ "AHMET" İÇİN BİR SAYFA AÇSIN VE O SATIRIN TAMAMINI SAYFAYA İŞLESİN

EMEK VERİP İLGİLENİYORSUNUZ, TEŞEKKÜR EDERİM.

 

[Korhan Ayhan]

Selamlar,

hayatı ~ ayberk1 aynı kişiler mi?

 

[hayatı1]

aleyküm selam
evet hocam
hayatı ile işyerinden giriyorum
ayberk1 evden giriyorum. ayberk oğlumun adı, hayati benim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. KALAN sayfasının D sütunundaki kriterlere göre sayfa ekler ve ilgili sayfaya verileri aktarır.

Uygulanan kod;

Option Explicit
 
Sub VERİLERİ_SAYFALARA_AKTAR()
    Dim S1 As Worksheet, SAYFA As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("KALAN")
    
    Application.ScreenUpdating = False
    
    If S1.AutoFilterMode = True Then S1.Range("A8").AutoFilter
    S1.Columns(256).Delete
    S1.Range("D8:D65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S1.Range("IV1"), Unique:=True
        
    Application.DisplayAlerts = False
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Name <> "KALAN" And SAYFA.Name <> "Sayfa1" Then SAYFA.Delete
    Next
    
    Application.DisplayAlerts = True
    
    
    For X = 2 To S1.Cells(65536, 256).End(3).Row
    
    S1.Range("A8").AutoFilter
    S1.Range("A8").AutoFilter Field:=4, Criteria1:=S1.Cells(X, 256)
    
    S1.Range("A8:M65536").CurrentRegion.Copy
    
    Sheets.Add , After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = S1.Cells(X, 256)
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    Next
 
    If S1.AutoFilterMode = True Then S1.Range("A8").AutoFilter
    S1.Columns(256).Delete
    S1.Select
    Set S1 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hayatı1]

Korhan bey, istediğim gibi oldu.
Teşekkür ederim.

 

[hayatı1]

Korhan Bey
Sayfalara aktardı fakat aşağıdaki mesajı verdi.

ActiveSheet.Name = S1.Cells(X, 256)

 

[Korhan Ayhan]

Selamlar,

Defalarca denememe rağmen belirttiğiniz bölümde hata ile karşılaşmadım. Uygularken birşeyleri yanlış yapıyor olabilirmisiniz.