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

• #31526 Delila_1 veterán Declare #31524

  Új Válasz 2016-05-12 14:40:27 #31526

  Ú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 Declare #31524 üzenetére

  Néhány megjegyzés:

  A makró címének ne adj VBA kulcsszót (copy).
  Deklaráltál egy MyCol változót, amit később nem használsz fel (apró dolog, nagyobb baj lenne fordítva).
  A for-next ciklusnál alapérték az 1-es lépésköz, ezért nem kell kiírni.
  Ha az A oszlop utolsó értéke >=13, akkor a másolt E13:AB14 tartomány felülírja a vizsgált H oszlop értékét.
  Nincs szükség a függvényre, hiszen 1 cella értékét vizsgálod, nem egy tartományét.

  Sub Masolas()
  Dim i As Integer
  For i = 1 To Range("A1353").End(xlUp).Row
  If Range("H" & i) = "1" Then Range("E13:AB14").Copy Range("E" & i)
  Next i
  End Sub

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