• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

dikey verileri başka sayfaya yatay olarak aktarma

Y

yNsr43

Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
merhaba arkadaşlar bir sayfadaki dikey verileri başka bir sayfaya yatay olarak aktarmak istiyorum şöyle bir kod kullaniyrum lakin biraz kasiyor bunu
B7 den B82 ye kadar olan verileri başka sayfadaki "KB" kolonundan ihtibaren yatay şekilde kopyalamak mümkün mü ?

Sub dört_öncesi_verileri_girme()
Dim sh As Worksheet, sonsat As Long
Dim k As Range
Sheets("sayfa1").Select
Set sh = Sheets("veri")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A1:A" & sonsat).Find(Range("A4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Offset(0, 321).Value = Range("B7").Value
k.Offset(0, 322).Value = Range("B8").Value
k.Offset(0, 323).Value = Range("B9").Value
k.Offset(0, 324).Value = Range("B10").Value
k.Offset(0, 325).Value = Range("B11").Value
k.Offset(0, 326).Value = Range("B12").Value
k.Offset(0, 327).Value = Range("B13").Value
k.Offset(0, 328).Value = Range("B14").Value
k.Offset(0, 329).Value = Range("B15").Value
k.Offset(0, 330).Value = Range("B16").Value
k.Offset(0, 331).Value = Range("B17").Value
k.Offset(0, 332).Value = Range("B18").Value
k.Offset(0, 333).Value = Range("B19").Value
k.Offset(0, 334).Value = Range("B20").Value
Application.Wait Now + TimeValue("00:00:01")
k.Offset(0, 336).Value = Range("B21").Value
k.Offset(0, 337).Value = Range("B22").Value
k.Offset(0, 338).Value = Range("B23").Value
k.Offset(0, 339).Value = Range("B24").Value
k.Offset(0, 340).Value = Range("B25").Value
k.Offset(0, 341).Value = Range("B26").Value
k.Offset(0, 342).Value = Range("B27").Value
k.Offset(0, 343).Value = Range("B28").Value
k.Offset(0, 344).Value = Range("B29").Value
k.Offset(0, 345).Value = Range("B30").Value
k.Offset(0, 346).Value = Range("B31").Value
k.Offset(0, 347).Value = Range("B32").Value
k.Offset(0, 348).Value = Range("B33").Value
k.Offset(0, 349).Value = Range("B34").Value
k.Offset(0, 350).Value = Range("B35").Value
k.Offset(0, 351).Value = Range("B36").Value
Application.Wait Now + TimeValue("00:00:01")
k.Offset(0, 353).Value = Range("B37").Value
k.Offset(0, 354).Value = Range("B38").Value
k.Offset(0, 355).Value = Range("B39").Value
k.Offset(0, 356).Value = Range("B40").Value
k.Offset(0, 357).Value = Range("B41").Value
k.Offset(0, 358).Value = Range("B42").Value
k.Offset(0, 359).Value = Range("B43").Value
k.Offset(0, 360).Value = Range("B44").Value
k.Offset(0, 361).Value = Range("B45").Value
k.Offset(0, 362).Value = Range("B46").Value
k.Offset(0, 363).Value = Range("B47").Value
k.Offset(0, 364).Value = Range("B48").Value
k.Offset(0, 365).Value = Range("B49").Value
k.Offset(0, 366).Value = Range("B50").Value
k.Offset(0, 367).Value = Range("B51").Value
k.Offset(0, 368).Value = Range("B52").Value
Application.Wait Now + TimeValue("00:00:01")
k.Offset(0, 370).Value = Range("B53").Value
k.Offset(0, 371).Value = Range("B54").Value
k.Offset(0, 372).Value = Range("B55").Value
k.Offset(0, 373).Value = Range("B56").Value
k.Offset(0, 374).Value = Range("B57").Value
k.Offset(0, 375).Value = Range("B58").Value
k.Offset(0, 376).Value = Range("B59").Value
k.Offset(0, 377).Value = Range("B60").Value
k.Offset(0, 378).Value = Range("B61").Value
k.Offset(0, 379).Value = Range("B62").Value
k.Offset(0, 380).Value = Range("B63").Value
k.Offset(0, 381).Value = Range("B64").Value
k.Offset(0, 382).Value = Range("B65").Value
k.Offset(0, 383).Value = Range("B66").Value
k.Offset(0, 384).Value = Range("B67").Value
k.Offset(0, 385).Value = Range("B68").Value
k.Offset(0, 386).Value = Range("B69").Value
Application.Wait Now + TimeValue("00:00:01")
k.Offset(0, 388).Value = Range("B70").Value
k.Offset(0, 389).Value = Range("B71").Value
k.Offset(0, 390).Value = Range("B72").Value
k.Offset(0, 391).Value = Range("B73").Value
k.Offset(0, 392).Value = Range("B74").Value
k.Offset(0, 393).Value = Range("B75").Value
k.Offset(0, 394).Value = Range("B76").Value
k.Offset(0, 395).Value = Range("B77").Value
k.Offset(0, 396).Value = Range("B78").Value
k.Offset(0, 397).Value = Range("B79").Value
k.Offset(0, 398).Value = Range("B80").Value
k.Offset(0, 399).Value = Range("B81").Value
k.Offset(0, 400).Value = Range("B82").Value
End If
End Sub
Genişletmek için tıkla ...
 
Merhaba,
Kopyalamak istediğin verileri seçerek kopyaladıktan sonra yapıştırmak istediğin hücreyi sağ tıklıyoruz. Özel yapıştıra tıkladıktan sonra gelen ekranda işlemi tersine çevir kısmına çentik atarak işleme tamam diyoruz. Dikey veriler yatay olarak yapışmış oluyor.
 
teonet' Alıntı:
Merhaba,
Kopyalamak istediğin verileri seçerek kopyaladıktan sonra yapıştırmak istediğin hücreyi sağ tıklıyoruz. Özel yapıştıra tıkladıktan sonra gelen ekranda işlemi tersine çevir kısmına çentik atarak işleme tamam diyoruz. Dikey veriler yatay olarak yapışmış oluyor.
Genişletmek için tıkla ...

işte bunu yolladığım koddaki makro olarak yapmak istiyorum.

Kod: 
Sub Makro1()
    Sheets("sayfa1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("sayfa2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

iki sayfada da ayni veriler var sayfa1de olan dikey verilerin değerlerini sayfa2 de veriyi arayip "BC" kolonuna yatay olarak yapıştırmak istioyurm..
 
üstatlar yardimci olabilecek var mi?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst