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

• #1555 Homer tag 26centi #1551

  Új Válasz 2011-12-07 18:56:05 #1555

  Ú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

  

  Homer

  tag

  válasz 26centi #1551 üzenetére

  Szia!
  Ha tudod a sorok számát akkor:

  Sub Akarmi()
  Worksheets(1).Select
  Dim ujsor As Integer
  ujsor = 1
  For Index = 1 To 10
  Rows(CStr(Index) & ":" & CStr(Index)).Select
  If Cells(Index, 2).Text <> "#HIÁNYZIK" Then
  Selection.Copy
  Worksheets(2).Select
  Rows(CStr(ujsor) & ":" & CStr(ujsor)).Select
  ActiveSheet.Paste
  Worksheets(1).Select
  ujsor = ujsor + 1
  End If
  Next Index
  End Sub

  Egyébként én cellánként másolgatnám az értékeket anélkül, hogy mindig kijelölgetném a második worksheetet valahogy így:

  Ha a vizsgált cella értéke megfelelő akkor
  Worksheets(2).Cells(XY).text=worksheets(1).cells(ZY).text
  (Sokkal gyorsabb lesz afutása a makrónak, és nem vibrál a kép futás közben )

  Jah, bocs, elfelejtettem írni, hogy az a baj, hogy a sor kijelölésének formája:
  Rows("1:1").select
  Ebből gondolom látod mi a gond: String paramétert várna a rows sub
  Remélem segítettem

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