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

244

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Luetuimmat keskustelut

    1. Asiakkaalle ei myyty energiajuomaa - tuomio tuli syrjinnästä

      Vaikka oli ilmeisesti täysi-ikäinen. Tosin ei lapsiakaan saisi syrjiä, koska oppivat helposti itsekin syrjimään, jos koh
      Maailman menoa
      81
      4219
    2. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      113
      3268
    3. Pakkoruotsista luopumalla kymmenien miljoonien säästöt

      Pakkoruotsin opiskelun kustannuksista ei ole juurikaan tehty kustannusselvityksiä, mutta joidenkin arvioiden mukaan siit
      Maailman menoa
      121
      3267
    4. Luterilaisen kirkon koko kastekaava on väärä

      Uudessa testamentissa on kaksi täysin ristiriidassa olevaa kastekäskyä Matt 28:19 ja Ap. t. 2:38. Matteuksen evankeluimi
      Kaste
      41
      2714
    5. Miten Yxäri iskettiin?

      Voisin tässä unta odotellessani kertoa, miten mieheni lähestyi minua. Tunsimme entuudestaan. Hän kyseli minulta aina j
      Sinkut
      218
      2494
    6. "Kostokakka!" Farmi Suomen pehtoori avaa sanaisen arkkunsa Frederikin haisevasta jäynästä

      Voi hyvänen aika Reetun touhuja! Pehtoori Terho Häkkinen sai ennen näkemätöntä höykytystä heti Farmi Suomi -realityn alk
      Tv-sarjat
      19
      2161
    7. Katsoitko Petolliset, mitä mieltä?

      Vanajanlinnan käytävät ja salongit täyttyvät jälleen kuiskailuista, salaisuuksista ja petoksista. Petollisten uudella
      Tv-sarjat
      11
      2006
    8. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      29
      1914
    9. Onko Janne Naakka tuttu kasvo ja mitä mieltä olet Farmi-kokoonpanosta?

      Somevaikuttaja Janne Naakka on tubettaja ja bloggaaja sekä yksi uuden Farmi Suomi -kauden kisaajista. Naakka tuottaa mm.
      Tv-sarjat
      0
      1893
    10. Ylen juontaja möläytti suorassa radio-ohjelmassa

      Ylen Radio Suomen juontaja Samuli Aaltonen käytti törkeää kieltä maanantaiaamupäivän Koko Suomen radio -ohjelman lähetyk
      Maailman menoa
      45
      1866
    Aihe