Telefonszámunk: 1-472-0679

[Resolved] Másolás új sorba

Kezdőlap Fórumok Excel programozás [Resolved] Másolás új sorba

Topic Resolution: Resolved

Ennek a témakörnek tartalma 4 hozzászólás, 2 résztvevő. Utolsó frissítés:  delila 2 hete, 2 napja telt el.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #8264

    kovacsl1968
    Felhasználó

    Sziasztok.
    Mint mindenki, aki problémával jelentkezik, én is egy kis segítséget szeretnék kérni… Találtam ugyan visszamenőlegesen hasonló hozzászólást, de sajnos a problémát nem sikerült megoldanom (mert különben miért lennék itt). Probléma lényege: egy betöltő táblából adatok kerülnek egy “C” munkalapra meghatározott rendszerben. Ezeket az adatokat szeretném másolni értékként egy külön munkalapra úgy, hogy az adatok másolása folytatólagos legyen, azaz, mindig a soron következő üres sorba kezdje a másolást. Maga a másolást makróztam, működik, csak éppen felülírja a már másolt adatokat. Megpróbáltam megadni, hogy keresse meg az üres sort, na itt akadtam el…
    Ez lenne a kreálmány:

    Sub delete()
    Dim ide As Long

    ide = Sheets(“osszefuz”).Range(“A” & Rows.Count).End(xlUp).Row + 1
    Sheets(“C”).Select
    Range(“B2:J11”).Select
    Selection.Copy_Sheets(“osszefuz”).Range (“A” & ide)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    Sheets(“betolto”).Select
    Range(“D1,J1,C4:D8,G4:H8”).Select
    Range(“G4”).Activate
    Selection.ClearContents
    Range(“D1”).Select
    End Sub

    Előre is köszönöm a segítséget!

    #8265

    delila
    Felhasználó

    Szia!

    Próbáld így:

    Sub Masol_Torol()
        Dim ide As Long
        
        ide = Sheets("osszefuz").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("C").Range("b2:J11").Copy
        Sheets("osszefuz").Range("A" & ide).PasteSpecial xlPasteValues
        
        Sheets("betolto").Range("D1,J1,C4:D8,G4:H8").ClearContents
    End Sub

    Delila

    #8266

    kovacsl1968
    Felhasználó

    Köszönöm! Szuper lett!

    #8267

    kovacsl1968
    Felhasználó

    És akkor már csak egy apróság: kitöltés makróval, egy oszlopban az értékek 1-100 között, mindegyik érték szerepeljen 10x. Egyelőre sikeresen kitöltettem csak az 1-es értékkel. Azt szeretném megadni, hogy 10 darab után az értéket növelje 1-el.

    Sub ID()

    a = 1
    For i = 2 To 1001
    For j = 2 To 2
    Sheets(“osszefuz”).Cells(i, j) = a
    CountIf.Cells(i, j) = 10
    Sheets(“osszefuz”).Cells(i, j) = a + 1
    Next j
    Next i

    End Sub

    A countif… sornál elakadtam. Kérhetek ismét segítséget?

    #8271

    delila
    Felhasználó

    Látom, új kérdésként is feltetted, ott válaszoltam rá.

5 bejegyzés megtekintése - 1-5 / 5

Be kell jelentkezni a hozzászóláshoz.