DoubleClick Olayı

[3641]

Arkadaşlar Merhaba,
Ekli dosyada A sütunundaki değerlerin altına A:J sütununa kadar 6 adet boş satır ekleyip
1. Değer ........ 7. Değer yazan başlıkları "SARI RENK ile İşaretli yataydan dikeye

D ve J sütunlarındaki değerleride C sütununa yataydan dikeye çevirmek istiyorum.

Bu şekilde düzenlemeye çalıştığım veri çok fazla eğer Macro DoubleClick olayı ile yapabilirsem şayet işim çok kolaylaşacak.

Şimdiden tüm üyelere teşekkür ederim.

Örnek dosya ekte.

Saygılarımla

 

[Emir Hüseyin Çoban]

Merhaba, aşağıdaki kodları dener misiniz?

Sub ekle_yapıstır()
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("D3:J3").Select
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

[3641]

huseyincoban İlgin için teşekkür ederim.
Kodlar a hücresindeki verileri silip Değerleri a hücresine 6 satır ekleyip yapıştırıyor.
Yapmak istediğim A hücresinden j Hücresine kadar aşağı doğru 6 adet satır ekleyip "çift tıklayarak" değerin başlıklarını B sütununa Değerleride C sütununa Yapıştırmak.

Saygılarımla,

 

[Emir Hüseyin Çoban]

Biraz karmaşık bir işlem.
Birde bu kodları dener misiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("D2:J3").Select
    Selection.Copy
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

[3641]

Sayın huseyincoban,
Ekte biraz daha açıklayıcı bir dosya gönderiyorum incelersen sevinirim.

 

[3641]

Yardımcı olabilecek arkadaşların bi el atmasını rica ederim.

Saygılarımla