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

314

Ää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
      109
      3658

    2. 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
      64
      2599

    3. Porvarimedia: Räsänen vei Lindtmanilta pääministerin paikan

      Lisäksi suomalaiset ovat innostuneet tuhlaaman, koska kuluttavat inflaation verran enemmän rahaa. Eikö porvarimedialla
      Maailman menoa
      25
      2539

    4. 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
      73
      2367

    5. Ruotsi laskee jälleen bensaveroa, Riikka irvailee tumput suorana

      Euron bensa oli persujen vaalilupaus, mutta kohta alkaa olla kolmosella alkavia litrahintoja. Meanwhile in Sverige: "
      Maailman menoa
      23
      2248

    6. Olitkin liian hyvää ollaksesi totta nainen

      Ihastuin ja rakastuin, mutta se on minun ongelma. Ei sinun.
      Ikävä
      103
      1320

    7. Kaste pelastaa ihmisen

      Kristittyjen kirkkojen toimittama yksi Kaste on Jumalan tekemä pelastusteko, jossa perisyntiin hengellisesti kuollut ihm
      Kaste
      611
      1217

    8. Ensin oli armo - sen jälkeen tuli usko

      Me emme ansaitse armoa omalla uskollamme. Armo on ansaitsematonta rakkautta mikä synnyttää meidät uudesti Jumalasta. K
      Luterilaisuus
      400
      1035

    9. Uskon todistus

      Oikean uskovaisen ja nimikristityn erottaa siitä, että Jeesukseen uskova korottaa Jeesusta ja uskoa Häneen, mutta nimik
      Kaste
      261
      1026

    10. Elisalla ja MTV:llä lihava riita - MTV:n kanavienlähetykset ovat katkeamassa Elisan asiakkailla

      Kaikkien MTV:n kanavien televisiolähetykset ovat katkeamassa Elisan kaapeli-tv-asiakkailta. https://www.is.fi/digitoday
      Maailman menoa
      142
      1019
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt