Yük-Araç Planlama Makrosu

[MGokboruAtan]

Merhaba herkese,
Tüm yurtdışı sitelerini ve türkçe siteleri araştırdım ama sonuç bulamadım. Bir çözüm var ise destek lütfen satırlardan oluşan siparişler var ve ben bu siparişleri bir sayfada metin kutusu ya da bir dikdörtgen şekil içinde yazılar ile getirmek istiyorum. Daha sonra hazırda bulunan araçları da yine aynı şekilde şekil içinde plaka olacak şekilde aynı şekilde aynı sayfada listelemek istiyorum. Sonra bu kutucuğu sipariş kutucuğunun yanına getirip eşlemek istiyorum. Bu eşleşme liste halinde otomatik başka sayfada listelenecek. Böyle bir excel mümkün mü ?

 

[cemshan]

Bu anlattıklarınızın hepsi mümkün. Örnek bir sipariş datasını paylaşırsanız bir çok farklı fikir gelicektir.

 

[MGokboruAtan]

Bu anlattıklarınızın hepsi mümkün. Örnek bir sipariş datasını paylaşırsanız bir çok farklı fikir gelicektir.

Hocam öncelikle cahilliğimin kusuruna bakmayın. Yeni üye oldum. Dosya hazır yollayacağım fakat dosya ekleme seçeneğini bir türlü bulamadım . Altın üyelik ister diye üye de oldum ama sanırım henüz onaylanmadı

 

[MGokboruAtan]

Merhabalar tekrar üyelik onaylanmış örnek dosyayı ekte gönderiyorum otomatik veri çekip sayfalara dağıtması için bir makro çalışması yapmıştım

 

[MGokboruAtan]

Tekrar Merhaba farklı bir makro ile pivot tablolardaki satırları seçerek planlama sayfasına datayı atıyorum ve döngüsel başvuru ile pivot tabloları otomatik yenileyerek yapmaya çalışıyorum şimdi. Yukarıda belirttiğim çok fantazi geldi. Ancak burada da şöyle tıkanıyorum. Seçimim tek sütun olarak değil atıyoru A11 ve ctrl ile basık tutup E5:H5 çoklu seçim yapmak istiyorum. Nasıl bir düzeltme yapmam gerekiyor?

Sub Secimi_Aktar()
    
    Dim i       As Long
    
    If Selection.Columns.Count > 1 Then
        i = Sheets("öğleden Sonra Plan").Cells(Rows.Count, "A").End(3).Row + 1
        Selection.Copy Sheets("Öğleden Sonra Plan").Cells(i, "A")
        MsgBox "Seçilen Alan Aktarıldı"
    End If
    
End Sub