• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Bir Sayfadaki Tablo İçinden İstediğim Tablonun Getirilmesi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

DEVECİ

Yeni Üye
Katılım
17 Ara 2018
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Konya
Ad Soyad
Recep DEVECİ
Sayın Üstatlar;

Bir excel sayfasında yüzlerce tablo var ve bu tablolar asgari 7 sütun ve 15 satırdan oluşmaktadır. Bu tablolardan istediğimi bulmak zor oluyor. Sizden ricam başka bir çalışma kitabı oluşturmak ve bu kitaba tablonun adını yazınca tablodaki satır ve sütunları getirmek. Ekte deneme sayfası bulunmaktadır. Şimdiden yardımlarınız için teşekkürler.
 

Ekli dosyalar

  • DENEME.xlsx
    22.6 KB · Görüntüleme: 15

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
B1 hücresine ürün kodunu girim enterleyin
A100 gibi

Kod:
Sub tablogetir()
Application.ScreenUpdating = False
  Sheets("Sayfa2").Select
  sonsatir = ActiveSheet.UsedRange.Rows.Count
  If sonsatir <= 5 Then sonsatir = 6
  Range("A5:G" & sonsatir).Select
  Application.CutCopyMode = False
  Selection.Clear
  Range("B1").Select

    
  aranankod = Sheets("Sayfa2").Range("B1").Value
  Sheets("Sayfa1").Select
  sonsatir = ActiveSheet.UsedRange.Rows.Count
  sonsutun = ActiveSheet.UsedRange.Columns.Count
 
  bulunanstun = 0
  For satir = 1 To sonsatir
    If bulunansutun > 0 And Cells(satir, bulunansutun + 3).Value = "" Then
       sonsatir = satir
       Exit For
    End If
    For sutun = 1 To sonsutun
        If bulunansutun > 0 Then Exit For
        If Cells(satir, sutun).Value = "ÜRÜN KODU" And Cells(satir, sutun + 1).Value = aranankod Then
          bulunansutun = satir
          satir = satir + 1
          Exit For
        End If
    Next sutun
  Next satir
 
  If bulunansutun = 0 Then
     MsgBox ("Ürüne ait tablo bulunamadı")
     Exit Sub
  End If
 
    Range(Cells(bulunansutun, bulunansutun), Cells(sonsatir, bulunansutun + 5)).Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A5").Select
    ActiveSheet.Paste
    Columns("A:F").Select
    Columns("A:F").EntireColumn.AutoFit
    Range("C10").Select
Application.ScreenUpdating = True
End Sub
 

Ekli dosyalar

  • DENEME.xlsm
    36.1 KB · Görüntüleme: 22

DEVECİ

Yeni Üye
Katılım
17 Ara 2018
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Konya
Ad Soyad
Recep DEVECİ
Sayın Asri cevabınız için teşekkür ederim. Bunu kod ile değilde formüller ile yapabilir miyiz. Kodlamadan anlamadığım için formül olması benim için daha kullanışlı olacağını düşünüyorum.
 

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
Sayın Asri cevabınız için teşekkür ederim. Bunu kod ile değilde formüller ile yapabilir miyiz. Kodlamadan anlamadığım için formül olması benim için daha kullanışlı olacağını düşünüyorum.

Formül ile yardımcı olacak arkadaşlar olabilir.
kolay gelsin.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba,
Formülle çözümü ekliyorum, inceleyiniz..

tablo-min.png
 

Ekli dosyalar

  • Tablo Numarasına Göre O Tabloyu Listelemek.rar
    24.5 KB · Görüntüleme: 10

DEVECİ

Yeni Üye
Katılım
17 Ara 2018
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Konya
Ad Soyad
Recep DEVECİ
Sayın admin cevabınız için teşekkür ederim. İnceleyeceğim büyük ihtimal ile işimi görecektir. Hayırlı günler.
 

DEVECİ

Yeni Üye
Katılım
17 Ara 2018
Mesajlar
14
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Konya
Ad Soyad
Recep DEVECİ
Sayın Admin bir sayfada 100-150 adet tablo bulunmaktadır. Formül satırı 255 karakterden fazla almamaktadır. Bu konuda da bir yardımınız mümkün müdür.
1545137811686.png
 
Son düzenleme:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt