Telefonszámunk: 1-472-0679

Hozzászólások

9 bejegyzés megtekintése - 1-9 / 9
  • Szerző
    Bejegyzés
  • 2018-12-07-17:13 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5378
    DoWtHen
    Felhasználó

      Basszus nem írtam át a kezdő lap számát.
      Tökéletesem megy NAGYON KÖSZÖNÖM A SEGÍTSÉGET!!!!

      2018-12-07-16:43 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5376
      DoWtHen
      Felhasználó

        Soha nem volt még tele a 10 sor, viszont igen minden lapon fix 10 cella hosszú ez a rész és 60 sort kellene átmásolni.
        A próba lapon tökéletesen megy, az éles munkafüzetben az átmásolás B363 cellától kezdődik!!!

        2018-12-07-15:26 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5372
        DoWtHen
        Felhasználó

          3 lap maradt meg, a többit törölni kellet a méret miatt.

          Attachments:
          You must be logged in to view attached files.
          2018-12-07-14:37 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5368
          DoWtHen
          Felhasználó

            „Ez akkor lehet jó, ha a bemásoláskor a B oszlopban mindig van adat.” Így is kipróbáltam írtam egy sort a táblába és működik a makró, de a 10 cellapár helyett csak az első cellapárokat másolja át a többit nem.

            2018-12-07-14:27 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5367
            DoWtHen
            Felhasználó

              Sziasztok.

              Sub kigyujt3()
Dim oszlop1 As Range
Dim oszlop2 As Range
Dim oszlop3 As Range
Dim oszlop4 As Range
Dim oszlop5 As Range
Dim oszlop6 As Range

For lap = 11 To Sheets.Count
    Sheets(lap).Select
    Set oszlop1 = Range("D93:E102,L93:M102,T93:U102")
    Set oszlop2 = Range("D123:E132,L123:M132,T123:U132")
    Set oszlop3 = Range("D153:E162,L153:M162,T153:U162")
    Set oszlop4 = Range("D183:E192,L183:M192,T183:U192")
    Set oszlop5 = Range("D213:E222,L213:M222,T213:U222")
    Set oszlop6 = Range("D243:E252,L243:M252,T243:U252")
    Union(oszlop1, oszlop2, oszlop3, oszlop4, oszlop5, oszlop6).Copy Destination:=Sheets("Állásidők_rögzítése").Range("B3").End(xlDown).Offset(1, 0)
Next
End Sub

              Hibát jelez az Union(..).copy sorra.

              Run-time error ‘1004’: Application-defined or object-defined error

              2018-12-06-18:41 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5360
              DoWtHen
              Felhasználó

                Ezt is kipróbáltam és nem csinál semmit, hibát sem ír ki.

                Sub kigyűjt33()

For lap = 10 To Sheets.Count
   With Sheets(lap)
Range("D93:E102,L93:M102,T93:U102,D123:E132,L123:M132,T123:U132,D153:E162,L153:M162,T153:U162,D183:E192,L183:M192,T183:U192,D213:E222,L213:M222,T213:U222,D243:E252,L243:M252,T243:U252").Copy Sheets("Állásidők_rögzítése").Range("B3")
    End With
    Next
End Sub
                2018-12-06-17:44 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5359
                DoWtHen
                Felhasználó

                  Ez most nem csinál semmit, így kellet beilleszteni?

                  „Ebben az esetben Terület1.Copy MásikLap.Range(cellacím)” Ezt hogy kell beírni, ennyire nem értek a makróhoz.
                  Köszi a válaszokat.

                  Sub kigyűjt22()

Dim oszlop1 As Range
Dim oszlop2 As Range
Dim oszlop3 As Range
Dim oszlop4 As Range
Dim oszlop5 As Range
Dim oszlop6 As Range

Set oszlop1 = Range("D93:E102,L93:M102,T93:U102")
Set oszlop2 = Range("D123:E132,L123:M132,T123:U132")
Set oszlop3 = Range("D153:E162,L153:M162,T153:U162")
Set oszlop4 = Range("D183:E192,L183:M192,T183:U192")
Set oszlop5 = Range("D213:E222,L213:M222,T213:U222")
Set oszlop6 = Range("D243:E252,L243:M252,T243:U252")

For lap = 10 To Sheets.Count
   With Sheets(lap)
Union(oszlop1, oszlop2, oszlop3, oszlop4, oszlop5, oszlop6).Copy Sheets("Állásidők_rögzítése").Range("B3")
    End With
    Next
End Sub
                  2018-12-06-16:38 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5357
                  DoWtHen
                  Felhasználó

                    Ezt a sort jelöli:
                    ActiveSheet.Paste

                    2018-12-06-16:37 Hozzászólás: [Resolved] Munkalapok adott celláinak másolása #5355
                    DoWtHen
                    Felhasználó

                      próbáltam de most is hibás lett, valamit elrontok.

                      Attachments:
                      You must be logged in to view attached files.
                    • Szerző
                      Bejegyzés
                    9 bejegyzés megtekintése - 1-9 / 9