Soru Sütun adına göre kopyalama

[sanalgezgin]

Merhaba;

Excel'de oldukça fazla sütun ve satır içeren bir tablomuz var (Büyük tablo / bulunduğu çalışma sayfası adı "Veri"). Bu tabloda aynı dosya içinde yeni bir çalışma sayfasına otomatik olarak veri aktarmak istiyoruz (küçük tablo / otomatik olarak açılacak çalışma sayfası adı "Özet"). Şöyle ki;

Makro tuşuna basalım ve büyük tablodaki "Şehir, Unvan, Telefon Numarası" isimli sütunlar altındaki satırlarda yer alan veriler yeni bir çalışma sayfası açılarak bu sayfaya aynı sütun adı altına kopyalansın.

Bunu nasıl yapabilirim? Teşekkürler,

 

[volki_112]

hocam yapay zekalara sorunuzu sorarak istediğiniz koda ulaşabilirsiniz.

https://chatgpt.com/

Claude

Talk with Claude, an AI assistant from Anthropic

claude.ai

Microsoft Copilot: Your AI companion

Microsoft Copilot is your companion to inform, entertain, and inspire. Get advice, feedback, and straightforward answers. Try Copilot now.

copilot.microsoft.com

‎Gemini - fikirlerinize süper destek

Bard artık Gemini oldu. Yazı yazarken, plan yaparken, öğrenirken ve daha pek çok konuda Google Yapay Zeka'dan yardım alın.

gemini.google.com

bu sitelerden birine üye olup sorunuzu sorunuz. Gelen koda dönüt verin doğru sonuca götürür sizi

 

[Korhan Ayhan]

@volki_112 ,

Yönlendirmeleriniz güzel fakat..

Forum olmanın amacından uzaklaşmış oluyoruz.

Bildiğiniz konularda kod ya da formül paylaşımında bulunursanız daha faydalı olacaktır.

 

[volki_112]

Merhaba;

Excel'de oldukça fazla sütun ve satır içeren bir tablomuz var (Büyük tablo / bulunduğu çalışma sayfası adı "Veri"). Bu tabloda aynı dosya içinde yeni bir çalışma sayfasına otomatik olarak veri aktarmak istiyoruz (küçük tablo / otomatik olarak açılacak çalışma sayfası adı "Özet"). Şöyle ki;

Makro tuşuna basalım ve büyük tablodaki "Şehir, Unvan, Telefon Numarası" isimli sütunlar altındaki satırlarda yer alan veriler yeni bir çalışma sayfası açılarak bu sayfaya aynı sütun adı altına kopyalansın.

Bunu nasıl yapabilirim? Teşekkürler,

istediğin kod hocam. Dikkat etmen gerekenler Veri sayfasındaki ham tablonun adı kodda Tablo1 olarak geçiyor. ya kodda tablo adını değiştir. ya da exceldeki tablo adını Tablo1 yap

Sub KopyalaVeYeniSayfaOlustur()
    Dim veriSayfasi As Worksheet
    Dim yeniSayfa As Worksheet
    Dim tablo As ListObject
    Dim kopyalananVeri As Range
    Dim sonSatir As Long
    Dim sayfaVar As Boolean
    Dim mevcutSayfa As Worksheet
   
    ' Veri sayfasını seç
    Set veriSayfasi = ThisWorkbook.Sheets("Veri")
   
    ' Tablo1'i seç
    Set tablo = veriSayfasi.ListObjects("Tablo1")
   
    ' "Özet" sayfasının var olup olmadığını kontrol et
    sayfaVar = False
    For Each mevcutSayfa In ThisWorkbook.Sheets
        If mevcutSayfa.Name = "Özet" Then
            sayfaVar = True
            Set yeniSayfa = mevcutSayfa
            Exit For
        End If
    Next mevcutSayfa
   
    ' Eğer "Özet" sayfası yoksa, yeni sayfa oluştur
    If Not sayfaVar Then
        Set yeniSayfa = ThisWorkbook.Sheets.Add
        yeniSayfa.Name = "Özet"
    Else
        ' Eğer sayfa varsa, önceki verileri temizle
        yeniSayfa.Cells.Clear
    End If
   
    ' Tablo1'deki "Şehir", "Unvan" ve "Telefon Numarası" sütunlarını seç
    sonSatir = tablo.ListRows.Count
    Set kopyalananVeri = Union(tablo.ListColumns("Şehir").DataBodyRange, _
                               tablo.ListColumns("Unvan").DataBodyRange, _
                               tablo.ListColumns("Telefon Numarası").DataBodyRange)
   
    ' Kopyalanan veriyi yeni sayfaya yapıştır
    kopyalananVeri.Copy
    yeniSayfa.Range("A2").PasteSpecial Paste:=xlPasteValues
   
    ' Başlıkları da ekle
    yeniSayfa.Cells(1, 1).Value = "Şehir"
    yeniSayfa.Cells(1, 2).Value = "Unvan"
    yeniSayfa.Cells(1, 3).Value = "Telefon Numarası"
   
    ' Tabloyu yeniden düzenle
    yeniSayfa.ListObjects.Add(xlSrcRange, yeniSayfa.Range("A1:C" & sonSatir + 1), , xlYes).Name = "Tablo1"
   
    ' Kullanıcıya bilgi ver
    MsgBox "Veri başarıyla kopyalandı ve 'Özet' sayfasına eklendi!"
End Sub

 

[sanalgezgin]

Emek ve zaman ayırıp cevap veren herkese teşekkür ederim. Hem yukarıdaki koddan hemde Microsoft Co-Pilot'tan aşırı derecede istifade ettim. Çok teşekkür ederim.