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

312

Ää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. Petteri Orpo on satusetä

      Väittää että työllisyys on Suomessa samalla tasolla kuin hallituksen aloittaessa kesällä 2023. Fakta on, että työllisi
      Maailman menoa
      42
      2998

    2. Kauppalehti - Törkeä skandaali paljastui: Espanja käytti EU-rahoja ihan muuhun kuin piti

      Espanja on käyttänyt miljardeja euroja EU:n elpymisavustuksia eläkkeisiin ja sosiaalimenoihin – ja pyytää lisää. Espanj
      Maailman menoa
      87
      2906

    3. SDP pelastaa uppoavan Suomen

      2027 kun SDP voittaa ylivoimaisesti vaalit alkaa Suomen uusi raju syöksy kohti täystyöllisyyttä ja turvallisempaa yhteis
      Maailman menoa
      160
      2812

    4. Jopa Espanjassa talous kasvaa, Purra vain irvistelee

      Huomaa kuinka Purra on Suomen historian huonoin miniseteri, joka ei ole saanut aikaiseksi kuin tuhoa, Siis jopa vasemmis
      Maailman menoa
      201
      2105

    5. Minkä ikäinen

      on kaipaamasi ihminen? Minä vuonna syntynyt?
      Ikävä
      112
      1978

    6. Orpo ja Purra, käykää hakemassa oppia Espanjasta

      Espanja on näyttänyt kuinka kova työttömyys nujerretaan ja saadaan maan talous palautettua nousu-uralle. Ei ole häpeä kä
      Maailman menoa
      15
      1963

    7. Jääkiekon MM:t pitää siirtää MTV:ltä Ylelle

      Persuille ikäviä uutisia taas. . Valtioneuvoston asetuksen mukaan MM-kisat kuuluvat kansallisesti merkittäviin tapahtumi
      Maailman menoa
      50
      1579

    8. Tsemii Pete ja Linda! Tässä tärkeät kellonajat Euroviisut-viikon ohjelmista tv:ssä!

      Euroviisut järjestetään Wienissä Itävallassa 12.-16. toukokuuta. Tsemii Pete ja Linda kisaan! Vetäkää Suomelle voitto Li
      Euroviisut
      37
      1564

    9. Raiskaukset loppumaan?

      Onko kenelläkään tiedossaan tuloksellisia keinoja saada väkisinmakaaminen loppumaan tai edes vähenemään? Lainsäädännön
      Sinkut
      370
      1421

    10. Gallup! Mitä kirjainta kaipaat ja rakastat?

      Etunimen eka kirjain? Aloitan V
      Ikävä
      87
      1061
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt