Yapıştırma Makrosu

[ibrahimsomar]

Merahaba, ek dosyada aşağıya doğru belirli aralıklarda iki sütunlu verilerim var bu verileri seçip makro çalıştırdığımda seçili alanın yanına sağa doğru tek satırda yapıştırması için makroya ihtiyacım var. ilginiz için teşekkürler.

 

[Orion1]

Dosyanız hazır.

Sub trnsps()
Dim sat As Long, sut As Integer, hucre As Range
sat = Cells(65536, "F").End(xlUp).Row + 1
sut = 6
For Each hucre In Range(Selection.Address)
    Cells(sat, sut).Value = hucre.Value
    sut = sut + 1
Next hucre
End Sub

 

[ibrahimsomar]

teşekkür

çok teşekkür ederim, tam istediğim gibi olmuş. eline sağlık

 

[Orion1]

çok teşekkür ederim, tam istediğim gibi olmuş. eline sağlık

Rica ederim.
İyi çalışmalar.

 

[ibrahimsomar]

Evren Bey merhaba, daha önceki makro çok işime yaradı, fakat veri sayısı çok olduğundan baya zamanımı alan bir durum ortaya çıktı. ek dosyadaki b, c, d sütunlarını aynı şekilde makroyu bir defa çalıştırarak aşağıya kadar bütün satırları aynı şekilde transpoze edebilir miyiz. örneğin c6 sütunundan bir sonraki dolu hücreye kadar bu işlemi yapıp sonra bir sonraki dolu(c11) hücreden daha sonraki dolu hücreye(c17) kadar veriler için aynı dönüşümü yapacak makroya ihtiyacım var, yardımcı olursanız çok sevinirim.

(birde özet tabloda sayfa alanında tekrar eden adları yazdırmak gibi bir seçenek varm&#305

yardımlarınız için çok teşekkürler.

iyi çalışmalar.

 

[ibrahimsomar]

Dosyayı eklemeyi unutmuşum. iyi çalışamalar.

 

[sefis]

Dosyanız hazır.

Sub trnsps()
Dim sat As Long, sut As Integer, hucre As Range
sat = Cells(65536, "F").End(xlUp).Row + 1
sut = 6
For Each hucre In Range(Selection.Address)
    Cells(sat, sut).Value = hucre.Value
    sut = sut + 1
Next hucre
End Sub

evren gizlen kardeşim bu verdiğin bilgileri exceli arkasaında makro için açılan sayfayamı yazacağız

 

[Orion1]

evren gizlen kardeşim bu verdiğin bilgileri exceli arkasaında makro için açılan sayfayamı yazacağız

Alt+F11==> açılan VBE'de İnsert==>Modüle
den açılan pencereye yapıştıracaksınız.
Sonra kapatacaksınız
Alt+F8'e basacaksınız çıkan pencereden trnsps seçip çalştıra basacaksınız.

 

[Orion1]

Evren Bey merhaba, daha önceki makro çok işime yaradı, fakat veri sayısı çok olduğundan baya zamanımı alan bir durum ortaya çıktı. ek dosyadaki b, c, d sütunlarını aynı şekilde makroyu bir defa çalıştırarak aşağıya kadar bütün satırları aynı şekilde transpoze edebilir miyiz. örneğin c6 sütunundan bir sonraki dolu hücreye kadar bu işlemi yapıp sonra bir sonraki dolu(c11) hücreden daha sonraki dolu hücreye(c17) kadar veriler için aynı dönüşümü yapacak makroya ihtiyacım var, yardımcı olursanız çok sevinirim.

(birde özet tabloda sayfa alanında tekrar eden adları yazdırmak gibi bir seçenek varmı)

yardımlarınız için çok teşekkürler.

iyi çalışmalar.

Dosyanız ekte.

 

[ibrahimsomar]

Evren Bey gerçekten çok teşekkür ederim, çok büyük kolaylık sağladı.

bir sorum daha olacak "özet tabloda sayfa alanında tekrar eden adları yazdırmak gibi bir seçenek varmı" diye daha önce sormuştum, acaba böyle bir seçenek varmı?

iyi çalışmalar.

 

[Orion1]

Evren Bey gerçekten çok teşekkür ederim, çok büyük kolaylık sağladı.

bir sorum daha olacak "özet tabloda sayfa alanında tekrar eden adları yazdırmak gibi bir seçenek varmı" diye daha önce sormuştum, acaba böyle bir seçenek varmı?

iyi çalışmalar.

Tekrar eden derken hangi sütundaki veriler dikkate alınacak?

 

[ibrahimsomar]

özet tablo oluşturduğumda birinci hücresi dolu olan kutuların hepsinin dolu olması gibi bir seçenek varmı diye sormak istemiştim.

teşekkürler.

 

[Orion1]

özet tablo oluşturduğumda birinci hücresi dolu olan kutuların hepsinin dolu olması gibi bir seçenek varmı diye sormak istemiştim.

teşekkürler.

Bir fikrim yok.

 

[ibrahimsomar]

ilginiz için çok teşekkür ederim, iyi çalışmalar.

 

[Orion1]

ilginiz için çok teşekkür ederim, iyi çalışmalar.

Rica ederim.
İyi çalışmalar.