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

154

Ää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. NO NIIN! Nyt on sitten prinsessa Sannan sädekehä lopullisesti rikottu

      narsistia ei kannata enää kuin ne fanaattisimmat kulttilaiset, jotka ovat myös sitä Suomen heikkoälyisintä sakkia. Kun
      Maailman menoa
      107
      4589

    2. Kansa haluaa Marinin hallituksen takaisin ja Orpon pois

      Suomen kansa on nyt ilmoittanut millaisen hallituksen Suomi tarvitsee. "Suomalaisten suosikki seuraavaksi hallituspohja
      Maailman menoa
      172
      4376

    3. Mikä piirre kaivatussa on sinulle se juttu?

      Tunnetko kaivattuasi vai onko hän haavekuva, jota et edes tunne? Joskus tää asia ei ole niin selvää.
      Ikävä
      94
      1720

    4. Tylsille treffeille

      Hiljaisen ukon kans nuotiolle?
      Tunteet
      403
      1651

    5. HihhuIi-Päivi täpinöissään Viktorin tapaamisesta

      Eiköhän nyt kaikille ole vihdoin selvää kenen joukoissa tämäkin putinisti seisoo. https://www.iltalehti.fi/politiikka/a
      Maailman menoa
      31
      1397

    6. Upeeta! Rauha tulee pian!

      Hieno suunnitelma ja se on toteutumassa alle kahdessa viikossa. Jihuu! Tätä on odotettukin, nyt se tulee! https://www.is
      Maailman menoa
      353
      1100

    7. Ensitreffit Matti ei vaikene enää - Rehellinen tilitys epäonnistuneesta suhteesta Elisaan

      Häntä pystyyn, Matti! Olet mahtava tyyppi ja varmasti “se oikea” löytyy vielä! Elisan kanssa ei nyt vaan sitten natsann
      Ensitreffit alttarilla
      5
      1097

    8. Mitä hyvää olet

      aiheuttanut kaivatullesi?
      Ikävä
      67
      979

    9. Minkä lempinimen olet

      antanut kaivatullesi?
      Ikävä
      56
      954

    10. Miksi et halua

      Seksiä sen kanssa jota rakastat? Vai ajatteletko että hän ei halua?
      Ikävä
      92
      928
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt