Toplam 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: Kopyala-Sray Deitir

  1. #1
    ye
    yelik tarihi
    Mar 2015
    Mesajlar
    55

    Kopyala-Sray Deitir

    Linkteki resimde de grld gibi A stununda nternet'ten ektiim isimler ve isimlerin altnda bunlara ait rakamsal deerler bulunmaktadr. Bu stundaki isim ve bunlara ait rakamlar C:L aralna yatay olarak resimde grld gibi yazdracak bir makroya ihtiyacm var. Veri 3-5 isimden olusa idi Kopyala-Sray Deitir ile kolayca yapabilirdik. Ancak 1000 den fazla isim ve rakam verisi olduu dnlrse makro iimi ok kolaylatracaktr. Herkese teekkrler.

    [IMG][/IMG]

  2. #2
    ye
    yelik tarihi
    Mar 2015
    Mesajlar
    55
    Arkadalar ayn soruyu yurt dnda bir sitede de aratrdm. Cevap olarak yazlan aadaki kod tam da istediim eydi. Kod nce A stununda bulunan isimlerden nce birer bo satr ekliyor ve daha sonra G stunundan balayarak istediimiz dzenlemeyi yapyor. Belki baka arkadamza da yarar diye paylamak istedim. Herkese teekkrler.


    Sub OhYA()
    Dim LstRw As Long, Rng As Range, c As Range, rw As Long, rN As Long
    Dim RangeArea As Range

    LstRw = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range("A2:A" & LstRw).SpecialCells(xlCellTypeConstants, 2)
    Rng.Insert

    rN = Cells(Rows.Count, "A").End(xlUp).Row
    For Each RangeArea In Range("A2:A" & rN).SpecialCells(xlCellTypeConstants, 23).Areas
    rw = Cells(Rows.Count, "G").End(xlUp).Row + 1
    RangeArea.Copy
    Cells(rw, "G").PasteSpecial Transpose:=True
    Next RangeArea

    End Sub

  3. #3
    Yeni ye
    yelik tarihi
    Jan 2014
    Mesajlar
    5
    Paylam iin teekkrler.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Bu Konu in Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •