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

309

Ää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. Riikka: 3 euron bensa, Ruotsi: bensavero jopa alle EU-minimin

      Eipä vaan suomalainen autoilija saa kaikkien rakastamalta Riikalta sympatiaa. Ruotsissa on eri meininki, siellä diskutee
      Maailman menoa
      63
      2162

    2. Riikka runnoo: datakeskuksille tulee UUSI yritystuki

      "Suomen valtio erikseen tukee esimerkiksi kryptovaluuttaan tai aikuisviihteeseen tai muuhun keskittyviä datakeskuksia."
      Maailman menoa
      5
      1815

    3. Miten kestätte tyhmiä?

      Miten usein turhaudutte tai suututte ihmisiin, joilla on matala älykkyys? Minulla tätä tapahtuu useita kertoja viikossa
      Sinkut
      238
      1324

    4. En kerro nimeäsi nainen

      Sillä olet nyt salaisuus jota kannan sydämessäni. Tämä mitä tunnen ja kuinka sinuun vahvasti ihastuin on jo niin erikoin
      Ikävä
      71
      970

    5. Lahkojen uudestikasteille ei pitä mennä

      Sananl. 22:3 Mielevä näkee vaaran ja kätkeytyy, mutta yksinkertaiset käyvät kohti ja saavat vahingon.
      Kaste
      88
      950

    6. Minkä arvosanan 4-10 annat Susanna Laineelle Farmi-juontajana?

      Susanna Laine vetää Farmi Suomi -realityä. Minkä arvosanan 4-10 annat Suskille juontohommista? Suosikkijuontaja teki
      Tv-sarjat
      21
      885

    7. Miksi naisen pitäisi maksaa 50/50

      Vuokrasta miehelle? Eikö se ole miehelle lahja, ja aarre, jos nainen suostuu muuttamaan kanssasi asumaan?
      Ikävä
      155
      859

    8. Onko se liikaa pyydetty

      Voisitko sinä mies kerätä rohkeutta ja ottaa yhteyttä? Minä en jaksa tätä enää. On niin ikävä sinua. Minä niin haluaisin
      Ikävä
      39
      740

    9. Kaatopaikka Inhassa

      Kuka omistaa kyseisen kaatopaikan? Näkymä tielle kammottava!
      Ähtäri
      19
      736

    10. Jos joku kertoisi ihastuneensa sinuun

      mutta sinua ei voisi vähempää kiinnostaa, niin vastaisitko silti ystävällisesti?
      Sinkut
      93
      709
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt