VBA Plakken

[Dennisjuhh]

Beste excel specialisten=)

In de bijlage mijn excel bestandje met daarin een VBA code. Het probleem is dat ik op het 2e tabblad een paar ALS formules heb gebruikt. Deze lopen door tm regel 250. Als er geen waarde is ingevult laten de ALS formules ook niks zien. Vervolgens kopieer ik dmv een vba code de waarden door gebruik te maken van "CurrentRegion" maar dan neem hij dus wel de als formules tm regel 250 leeg mee in de selectie. Is logisch want er staat voor excel iets. Vervolgens plak ik het in een nieuwe werkblad met het criterium "alleen waarden".

Maar als ik dan End.xldown gebruik schiet hij weer naar die regel 250 terwijl er niks in die cellen staan=( Hij moet dus alleen lopen tm de cellen die geplakt zijn.

Iemand tips? ty!



Bekijk bijlage voorbeeldbestandje.xlsm

 

[HSV]

Test het zo maar eens.

Sub Knop2_Klikken()
Sheets(2).Range("A1").CurrentRegion.SpecialCells(-4123, 1).Copy
    With Sheets(3).Range("A1")
      .PasteSpecial (xlPasteValues)
      .PasteSpecial (xlPasteColumnWidths)
  End With
  Application.CutCopyMode = False
End Sub

 

[Dennisjuhh]

Kan je me vertellen wat

 Application.CutCopyMode = False

doet? En wat

Special.Cells

doet?

 

[HSV]

Dat kan ik hier wel neerzetten Dennis, maar dat ben je morgen waarschijnlijk al weer vergeten.
Ga met de cursor op de functie staan in de code en druk F1.
Daar ben je altijd beter mee geholpen.

 

[Dennisjuhh]

Haha oke=) Alvast bedankt!=)

 

[Dennisjuhh]

Het wil nog niet echt lukken. De selectie die ik nodig heb bestaat niet alleen uit cijfers, maar ook het tekst. De 1 als variant achter specials cells is dus niet genoeg. Ik heb al verschillende varianten gerpobeer maar het wil nog steeds niet lukken.

 

[HSV]

Sub Knop2_Klikken()
 Sheets("eindimport").[A1:A1000] = Sheets("tussenimport").[if(a1:a1000="","",a1:a1000)]
End Sub