| |
Pozdravljeni,
sem povsem nov pri VBA, vendar bi potreboval macro - kodo, ki bo naredil naslednje:
- na več delovnih listih so nekatere (iste) vrstice privzeto skrite,
- v določenem stolpcu, recimo Range(M1:M300), ugotovi katere celice vsebujejo znak "+" in katere znak "-",
- ugotovi tudi v katerih vrsticah se nahajajo znaki "+",
- nakar prikaže naslednjo vrstico od tiste kjer je znak "+" (recimo, da je "+" v celici M10, prikaže naj se vrstica 11).
- če celica vsebuje znak "-" ostane naslednja vrstica skrita.
Ne vem tudi ali je mogoče narediti en macro za cel delovni zvezk ali samo za posamični delovni list?
Najprej sem mislil to narediti z ActiveX kontrolniki (checkbox ... ), vendar ne delujejo tako kot bi želel.
Vnaprej hvala za pomoč 
changed: NikMan (25.11.2012, 13:02)
|
| |
| |
Sub PrikaziVrstice()
For Each sht In Worksheets
sht.Activate
For Each cell In Range("M1:M300")
If cell.Value = "+" Then
Rows(cell.Row + 1 & ":" & cell.Row + 1).Select
Selection.EntireRow.Hidden = False
End If
Next
Next
End Sub
changed: kljuka (25.11.2012, 12:35)
|
| |
| |
Nič se ne zgodi, ne deluje ... če pa spremenim tako:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each sht In Worksheets
sht.Activate
For Each cell In Range("M1:M300")
If cell.Value = "+" Then
Rows(cell.Row + 1 & ":" & cell.Row + 1).Select
Selection.EntireRow.Hidden = False
End If
Next
Next
End Sub
pa debuger javi napako 1004 - napaka metode "Select" razreda "Range" 
P.S. Si ti mogoče spremenil naslov te objave?
|
| |
| |
... a ne, že vidim, NikMan jo je!
|
| |
| |
Si prekopiral moj makro v VBA in zgoraj stistnil zeleno puščico za zagon makra?
|
| |
| |
Sem vendar ne dela. Za vrstico
"Rows(cell.Row + 1 & ":" & cell.Row + 1).Select"
javlja "Runtime Error 1004" - "Metoda Select razreda Range ni uspela".
changed: Mowgli (26.11.2012, 16:08)
|
| |
| |
kljuka:
Sub PrikaziVrstice()
For Each sht In Worksheets
sht.Activate
For Each cell In Range("M1:M300")
If cell.Value = "+" Then
Rows(cell.Row + 1 & ":" & cell.Row + 1).Select
Selection.EntireRow.Hidden = False
End If
Next
Next
End Sub
Očitno sem nekaj narobe delal, danes sem se ponovno lotil in tvoj macro dela točno to kar sem želel!
Res hvala za pomoč
changed: Mowgli (29.11.2012, 17:07)
|
| |
Prikazujem 1 od skupno 1 strani |
|
