Makron aloitusrivin määritys

tyhmyri_

Hei mulla on alla oleva koodi, miten saisi helpoiten määritettyä liittämisen aloittamaan F sarakkeessa riviltä 3 ja sen jälkeen jatkuu joka riville?

Sub Transponoi()
Dim vika As Long
Dim vika2 As Long
Dim solu As Range
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("DP2").Range("F:F") = ""
vika = Range("DP2!A65536").End(xlUp).Row
vika2 = Range("DP2!D65536").End(xlUp).Row
If vika < vika2 Then
vika = vika2
End If
For Each solu In Range("A3:A" & vika)
solu.Copy
Range("DP2!F65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
If Not solu.Offset(0, 3).Text = "#N/A" Then
solu.Offset(0, 3).Copy
Range("DP2!F65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

1

184

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Transponoi()
      Dim vika As Long
      Dim vika2 As Long
      Dim vika3 As Long
      Dim solu As Range
      On Error Resume Next
      Application.ScreenUpdating = False
      Worksheets("DP2").Range("F:F") = ""
      vika = Range("DP2!A65536").End(xlUp).Row
      vika2 = Range("DP2!D65536").End(xlUp).Row
      If vika < vika2 Then
      vika = vika2
      End If
      For Each solu In Range("A3:A" & vika)
      solu.Copy
      vika3 = Range("DP2!F65536").End(xlUp).Row
      If vika3 = 1 Then vika3 = 2
      Range("DP2!F" & vika3).Offset(1, 0).PasteSpecial (xlPasteValues)
      If Not solu.Offset(0, 3).Text = "#N/A" Then
      solu.Offset(0, 3).Copy
      vika3 = Range("DP2!F65536").End(xlUp).Row
      Range("DP2!F" & vika3).Offset(1, 0).PasteSpecial (xlPasteValues)
      End If
      Next
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Lataus pakkaskelissä

      En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu
      Hybridi- ja sähköautot
      131
      4681

    2. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      74
      2692

    3. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      80
      1705

    4. Kyllä mä suren

      Sitä että mikään ei ole kuten ennen. Ei niitä hetkiä ja katseita. Toisaalta keho lepää eikä enää tarvitse sitä tuskaa ko
      Ikävä
      9
      1176

    5. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      47
      905

    6. Jos vielä joku päivä nähtäis...

      Miten suhtautuisit minuun, mies?
      Ikävä
      66
      892

    7. Nyt se on varmaa kuntajakoselvitys

      Ensi viikolla tuöee kuntaministeri ulos ja kertoo asiasta.
      Ähtäri
      21
      873

    8. Olet mies aika ailahteleva luonteeltasi

      Olen nähnyt kuinka olet iloinen, sosiaalinen ja osallistuva. Autat ja kannustat muita. Ja sitten olen nähnyt kuinka istu
      Ikävä
      122
      863

    9. Yhteen hiileen velanottoveljet V P K

      Tytäryhtiöissä palaa julkista rahaa ja vastuuttomuuden takia -ei pakollisten -kuntalain edellyttämien asioiden takia! N
      Pyhäjärvi
      70
      847

    10. Olisin valmis tutustumaan uudelleen

      En menneisyyden kautta vaan haluaisin tutustua ihmiseen, jollaiseksi olet kasvanut.
      Ikävä
      50
      799
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt