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
5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • 2021-02-12-07:26 #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!

      2021-02-12-08:04 #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

        2021-02-12-09:00 #8266
        kovacsl1968
        Felhasználó

          Köszönöm! Szuper lett!

          2021-02-12-09:44 #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?

            2021-02-12-11:01 #8271
            delila
            Felhasználó

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

            • Szerző
              Bejegyzés
            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.