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

• #13799 hallgat csendes tag

  Új Válasz 2012-05-22 17:52:29 #13799

  Ú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

  

  hallgat

  csendes tag

  Sziasztok!

  Láma vagyok a témában, ezért segítségeteket kérném.
  /Excel 2003 VBA./

  Igyekszem megtanulni, de elakadtam. Az eddigi is innen onnan puskázva...
  Bemásolom az eddigi kódot, a végére kikommenteltem, hogy mit kéne még tudnia.
  Előre is köszönöm!!!

  Private Sub CommandButton1_Click()
  
  Dim forras_mlap As Worksheet
  Dim cel_mlap As Worksheet
  Dim forras_sor As Integer
  Dim cel_sor As Integer
  Dim eltolas As Integer
  
  
  
  Set forras_mlap = Worksheets("Munka1")
  Set cel_mlap = Worksheets("Munka2")
  
  cel_sor = 2
  
  Sheets("Munka2").Range("A2:BZ65536").ClearContents
  
  For forras_sor = 2 To forras_mlap.UsedRange.Rows.Count
  For eltolas = 0 To 18
  cel_mlap.Range("M" & cel_sor).Value = forras_mlap.Range("A" & forras_sor).Value
  cel_mlap.Range("N" & cel_sor).Value = forras_mlap.Range("B" & forras_sor).Offset(0, 1 * eltolas).Value
  cel_mlap.Range("D" & cel_sor).Value = forras_mlap.Range("U" & forras_sor).Value
  cel_mlap.Range("A" & cel_sor & ":C" & cel_sor).Value = forras_mlap.Range("V" & forras_sor & ":X" & forras_sor).Value
  cel_mlap.Range("G" & cel_sor & ":H" & cel_sor).Value = forras_mlap.Range("Y" & forras_sor & ":Z" & forras_sor).Value
  cel_mlap.Range("J" & cel_sor).Value = forras_mlap.Range("AA" & forras_sor).Value
  cel_sor = cel_sor + 1
  Next
  Next
  
  
  
  
  
  Sheets("Munka1").Range("B1:T1").Copy
  Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
  
  Sheets("Munka2").Activate
  Sheets("Munka2").Range("L2:L20").Copy
  ' ide kellene, hogy a Munka2-n jelölje ki L2 cellától lefelé az összes cellát addig a sorig,
  ' amig "A" oszlopban adatot talál. Ezt követően illesze be L2:L20-ból már másolt adatokat
  ' (vagy ha lehet, már előrébb kezdve a Munka1 B1:T1 cella adatait)
  ' végig a táblázat utolsó használt soráig, "A" oszlopot alapul véve.
  ' +++ jo lenne, ha ezt kovetoen "N" oszlop (fejléc van az 1. sorban) adatai alapján törölné azokat
  ' a sorokat, amik értéke "0", vagy üres
  
  
  End Sub

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