Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

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
  •