Just nu i M3-nätverket
Gå till innehåll

Sursill

Medlem
  • Antal inlägg

    6
  • Gick med

  • Senaste besök

Allt postat av Sursill

  1. Hejsan! Det blev ändå lite fel. Men jag ändrade till "Set rnSource = Selection" istället för "Set rnSource = Blad1.Rows(3)" Så nu verkar koden funka helt. Tack för att du ledde mig på rätt spår.
  2. Stort tack! Nu funkar det precis som jag vill!
  3. Tack för hjälpen. Men det funkar inte ändå, vilket gör mig sömnlös. Jag har två koder som fungerar klockrent var och en för sig. För att hitta nästa tomma rad (förutom msgbox): Sub LastFreeRow() Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With MsgBox LastRow End Sub Samt Cut & Paste: Sub Flyttarad() Selection.Cut Sheets("Blad2").Select Rows("1:1").Select ActiveSheet.Paste Sheets("Blad1").Select Selection.Delete Shift:=xlUp Range("I21").Select End Sub
  4. För enkelhetens skull har jag bara ett test-ark med kolumn A ifylld med en sifferserie på Blad1. Blad2 är tom. Så här blir det när jag testar koden:
  5. Tack! Värden finns i A1 kontinuerligt. Jag provade koden, men den fastnar på raden: Set rnTarget = Blad2.Cells(1, 1).End(xlDown).Offset(1). Sub flyttarad() Dim rnSource As Range Dim rnTarget As Range Set rnSource = Blad1.Rows(3) Set rnTarget = Blad2.Cells(1, 1).End(xlDown).Offset(1) rnSource.EntireRow.Copy rnTarget rnSource.EntireRow.Delete Shift:=xlUp End Sub
  6. Hej, Jag behöver hjälp med en kod visual basic i excel. Det jag vill att macrot ska göra är att klippa ut en rad i blad 1 (tomraden ska deletas) och klistra in den i blad 2 på första lediga rad. Tacksam för hjälp
×
×
  • Skapa nytt...