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

• #1560 Homer tag 26centi #1558

  Új Válasz 2011-12-09 06:03:06 #1560

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

  Szia!
  "A makrót ugyan a forrás munkalaphoz hoztam létre..."
  Szerintem ezzel is lehet gond. Csinálj egy modult és másold át abba a makródat. Egy próbát megér.

  Közben rájöttem, hogy balgaságot írtam.
  A Rows nem csak Stringet hanem integert is el kellene hogy fogadjon, tehát a
  Rows("2:2").select-nek ugyan úgy működnie kéne mint a Rows(2)-nek.
  Bocs.

• #1559 ArchElf addikt 26centi #1558

  Új Válasz 2011-12-08 10:58:03 #1559

  Ú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

  

  ArchElf

  addikt

  válasz 26centi #1558 üzenetére

  Használd akkor így:
  Worksheets("missing cost centers").Activate
  ActiveWorksheet.Rows(n).Select

  (vagy ActiveSheet - fejből nem tudom...)

  AE

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

• #1554 ArchElf addikt 26centi #1553

  Új Válasz 2011-12-07 11:40:22 #1554

  Ú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

  

  ArchElf

  addikt

  válasz 26centi #1553 üzenetére

  Sheets("missing cost centers").Select 'cél munkalap
  helyett lehet, hogy egy
  Sheets("missing cost centers").Activate 'cél munkalap
  kellene...

  AE

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