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

• #1556 Homer tag 26centi #1551

  Új Válasz 2011-12-07 19:09:37 #1556

  Ú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

  Ha tudod a sorok számát akkor még ehhez hasonlóval is próbálkozhatsz:

  For Each elem In Range("A1:A10")
  MsgBox (elem.Text)
  Next

• #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

• #1552 martonx veterán 26centi #1551

  Új Válasz 2011-12-06 13:25:36 #1552

  Ú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

  

  martonx

  veterán

  válasz 26centi #1551 üzenetére

  Szia!

  Így látatlanban az n-re gyanakodnék. Ez egy globális változó? Létezik ezen a helyen, ahol használni akarod?

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