Új hozzászólás Aktív témák

• #25201 m.zmrzlina senior tag gdodi #25198

  Új Válasz 2015-01-28 14:06:30 #25201

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz gdodi #25198 üzenetére

  Sub masol()
  
  Dim eleje As Long
  Dim vege As Long
  
  eleje = 2
  vege = 4
  
  Worksheets("Munka1").Rows(eleje & ":" & vege).Copy Destination:=Worksheets("Munka2").Rows(eleje & ":" & vege)
  Worksheets("Munka1").Rows(eleje & ":" & vege).Delete Shift:=xlUp
  End Sub

  A fenti pár sor áthelyezi a Munka1 2.-4. sorát a Munka2 2.-4. sorába. Pontosabb megfejtéshez tudni kellene, hogy hogyan szeretnél értéket adni az eleje és vége változóknak.

• #25206 Delila_1 veterán gdodi #25198

  Új Válasz 2015-01-28 14:23:53 #25206

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gdodi #25198 üzenetére

  Sub Athelyez()
  Dim elso As Long, ucso As Long
  
  elso = Munka1.Range("A1")
  ucso = Munka1.Range("B1")
  Rows(elso & ":" & ucso).Cut Munka2.Range("A1")
  End Sub

  Itt az első és az utolsó sor számát tartalmazza az A1, ill. a B1 cella.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák