Seçilen Hücreleri Başka Bir Satırda Yanyana Sıralama

[zaffer1981]

Merhaba.Sayfa1 de değişik yerlerde seçtiğim hücreleri ve tüm hücre içeriğini mesela birinci satıra yanyana taşımak istiyorum. bunun bir kısayolu var mı

örnek olarak F13, H14, K20, L30 vb ctrl+mouse sol tuşla seçiyorum. bu hücreleri birinci satıra yanyana gelecek şekilde taşımak istiyorum

teşekkürler

 

[Asri]

Merhaba.Sayfa1 de değişik yerlerde seçtiğim hücreleri ve tüm hücre içeriğini mesela birinci satıra yanyana taşımak istiyorum. bunun bir kısayolu var mı

örnek olarak F13, H14, K20, L30 vb ctrl+mouse sol tuşla seçiyorum. bu hücreleri birinci satıra yanyana gelecek şekilde taşımak istiyorum

teşekkürler

Aşağıdaki şekilde deneyiniz.

Birleştirilmiş hücreleri de taşır, ancak sadece yan yana olan hücreler birleştirilmiş olmalıdır.

Sub secileni_tasi()
    Dim cel As Range
    Dim selectedRange As Range
    'Rows("1:1").Clear
    If Selection.Count = 1 Then Exit Sub
    sonsatir = Cells(Rows.Count, "A").End(3).Row + 1
    Set selectedRange = Application.Selection
    
    i = 0
    say = 0
    i1 = 0
    For Each cel In selectedRange.Cells
       i = i + 1
       If i >= say + i1 Then
         If cel.MergeCells = True Then
            cel.MergeArea.Cut
            Cells(sonsatir, i).Select
            ActiveSheet.Paste
            say = cel.MergeArea.Columns.Count
            i1 = i
         Else
            cel.Cut
            Cells(sonsatir, i).Select
            ActiveSheet.Paste
         End If
       End If
    Next cel
End Sub

 

[zaffer1981]

bunu nasıl yapacağımı bilmiyorum. yardımcı olur musunuz. bir de hücreleri tamamen taşıyacak mı?

 

[zaffer1981]

seçilen hücreleri direk taşıyabilir miyiz bu şekilde. hücrenin tüm içeriğiyle beraber

 

[Asri]

bunu nasıl yapacağımı bilmiyorum. yardımcı olur musunuz. bir de hücreleri tamamen taşıyacak mı?

Örnek dosya mesajıma eklendi.

Seçilenleri kopyaladıktan sonra kopyalanan hücreyi temizeleyecek.

O kodları excel dosyanızın VBA bölümünde Modul1 ine kopyalamanız gerekiyor.

 

[zaffer1981]

hücreyi formulü ile beraber taşımıyor sadece sonucu taşıyor. formulü biçimi veri doğrlaması ile beraber taşınabilir mi

 

[Asri]

hücreyi formulü ile beraber taşımıyor sadece sonucu taşıyor. formulü biçimi veri doğrlaması ile beraber taşınabilir mi

Örnek dosya olmayınca, yanlış anlamalarda oluyor.

Kod, hücreyi kes yapıştır olarak güncellendi.

Hücreleri hangi sırada seçtiyseniz o sırada yapıştırılacaktır.

 

[zaffer1981]

çok teşekkür ederim elinize sağlık sağolun tekrar

 

[zaffer1981]

Merhaba. İlk taşınan satır dolu ise bir sonraki seçimi dolu satırın altındaki boş satıra taşıyabilir mi
teşekkürler

 

[zaffer1981]

Sayın asri. Makronun sonraki çalıştırılmalarında dolu satırın altındaki boş satıra taşıyabilir mi verileri. bir de form denetimi düğmesi sayfa ile bereber hareket edebiliyor mu acaba.
yardımlarınızı bekliyorum

 

[Asri]

Sayın asri. Makronun sonraki çalıştırılmalarında dolu satırın altındaki boş satıra taşıyabilir mi verileri. bir de form denetimi düğmesi sayfa ile bereber hareket edebiliyor mu acaba.
yardımlarınızı bekliyorum

dosya.tc ye örnek dosya yükler misiniz?

 

[zaffer1981]

rar ve ya zip olarak yükleyin diyor

 

[Asri]

rar ve ya zip olarak yükleyin diyor

dosya.co dan deneyebilir siniz.

 

[zaffer1981]

http://dosya.co/qeigjw7l6ppd/Kitap5.xlsm.html

 

[Asri]

http://dosya.co/qeigjw7l6ppd/Kitap5.xlsm.html

Kod güncellendi.

Butonun sabit kalması için ilk satırı genişletin. Butonu ilk satıra taşıyın.
Bölmeleri dondurdan ilk satırı sabitleyin.

 

[zaffer1981]

taşıma işini en üst satırdan başlayarak yapabilir mi asri bey. bir de birleştirilmiş hücreleri de taşıyabilir mi

 

[zaffer1981]

Yardım lütfen

 

[zaffer1981]

????????????????????

 

[zaffer1981]

Sayın asri Yardımlarınızı rica ediyorum

 

[Asri]

taşıma işini en üst satırdan başlayarak yapabilir mi asri bey. bir de birleştirilmiş hücreleri de taşıyabilir mi

Sayın zaffer,

Burada verilen bir çok cevap, hazır dosyalardan kopyala yapıştır ile verilmiyor. Sizin için belki kolay gibi görünen cevaplar, araştırmalar denemeler sonucunda oluşan cevaplar olabiliyor. Bu yüzden biraz sabır, sizin için acil olabilir belki, ancak buradaki kişilerin de acil işleri olabiliyor

Kod güncellendi. Kontrol ediniz.

Taşıma işlemi seçim sırasına göre yapılmaktadır. Seçimi en üst satırdan başlayarak yaparsanız. İlk olarak en üst satır taşınır.