[ mrkii @ 11.01.2010. 18:33 ] @
Imam npr. 1000 selektovanih polja u celom sheetu.
Kako da selektujem samo redove koji sadrze ta polja (da bi copirao samo te redove)?
[ Ivek33 @ 11.01.2010. 19:31 ] @
Dosta si nejasan sa pitanjem.

Slektiranje jednog cijelog reda:
Ako je u pitanju klasično selektiranje reda tada jednostavno pozicioniraj pokazivač miša na broj reda i klikni na njega. Time selektiraš jedan red.

Selektiranje raspona više redova jedan za drugim:
Klik da selektiraš prvi gornji red pa pritisni tipku SHIFT i zadrži je pa klik na zadnji red


Selektiranje više redova na preskok:
Klik na prvi red, pritisni tipku CTRL zadrži je pa klik na drugi red pa klik na neki slijedeći itd...

također možeš kombinirati ove radnje

btw: pogledaj link Selektiranje u Excelu
[ mrkii @ 11.01.2010. 20:23 ] @
Izvinjavam se ako nisam bio jasan :)

Evo screenshotova :)
Dakle selektovan je odredjeni broj polja (search pa select all)
Ovde na slici se vide 4 selektovana polja a kod mene ih ima hiljade.




Ovako treba da bude kada selektujem redove koji sadrze ta polja.



Znam da mogu da idem red po red, drzim ctrl i selektujem redove ali bi mi trebali sati.
A ovu operaciju treba cesto da radim. Verovatno ima neki stos :)
[ mirjanagb @ 12.01.2010. 12:19 ] @
a moze li npr da ubaci filter opciju pa s njom da selektuje ono sto mu treba?
[ Ivek33 @ 12.01.2010. 17:27 ] @
Citat:
mrkii:Verovatno ima neki stos :)
hmm, što da ti kažem, uvijek postoji neki štos ;-)
Vjerojatno bi ti bolje mogao odgovoriti neki znalac pisanja macro naredbi ( ili ako ti imaš iskustva sa macroom )
Pogledaj ovu temu ( Macro to highlight a specified row ) koju je pokrenuo @Jodie 11.01.2010 na ovom linku možda ti pomogne.

ovo su odgovori na sličan problem koji ti imaš:

Code:
Sub FindGAURANTEED()
  Dim WS As Worksheet, R As Range
  For Each WS In Worksheets
    Set R = WS.Columns("B").Find("GAURANTEED", LookIn:=xlValues, _
                                 LookAt:=xlWhole, MatchCase:=False)
    If Not R Is Nothing Then
      WS.Activate
      R.EntireRow.Select
      Exit Sub
    End If
  Next
End Sub


Code:
Sub HighlightRow()

Dim MyRow As Long

    MyRow = Range("B:B").Find(What:="Gauranteed", _
                        LookIn:=xlFormulas, _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False, _
                        SearchFormat:=False).Row
    
    ' select the row
    Rows(MyRow).Select
    
    ' highlight row yellow
    Rows(MyRow).Interior.Color = 65535
    
End Sub


Code:
Sub Highlight()
Dim sh As Worksheet
On Error Resume Next
For Each sh In ThisWorkbook.Sheets
    With sh
        LastRow = .Range("B" & Rows.Count).End(xlUp).Row
        .Range("B1:B" & LastRow).AutoFilter field:=1,
Criteria1:="Gauranteed"
        If Err.Number > 0 Then
            Err.Clear
        Else
            .Range("B2:B" & LastRow).SpecialCells(xlCellTypeVisible).
_
                 EntireRow.Interior.ColorIndex = 6
            .Columns("B").AutoFilter
        End If
    End With
Next
End Sub


ako sam te odveo na pogrešan smjer, moderatori će već izbrisati pogrešne dijelove ovog posta ;-)
btw: pogledaj link
[ timmy @ 12.01.2010. 18:33 ] @
Ovaj kod ce biti dovoljan da za selektovane celije automatski selektujes cele redove

Code:

Private Sub SelektujRedove()
Dim c As Range
Dim s As String
    For Each c In Selection
        s = s & "," & c.Row & ":" & c.Row
    Next c
    Range(Right(s, Len(s) - 1)).Select
End Sub


Inace bi jednostavnije resenje bilo da su tvoje selektovane celije u jednom nizu (jedna ispod druge),
tada bi bilo dovoljno da pritisnes Shift+Space da selektujes sve te redove.

Pozdrav
[ mrkii @ 12.01.2010. 21:27 ] @
@Ivek33
@timmy

Hvala na trudu i ulozenom vremenu :)

Nazalost, ne umem da koristim te kodove.

Citat:
Inace bi jednostavnije resenje bilo da su tvoje selektovane celije u jednom nizu (jedna ispod druge),
tada bi bilo dovoljno da pritisnes Shift+Space da selektujes sve te redove.

To mi je cest slucaj ali nece ta kombinacija dugmica. Selektuje se samo poslednji red. Ili nesto gresim?
[ rako88 @ 12.01.2010. 22:00 ] @
A na koji nacin biras redove koje selektujes?
[ timmy @ 12.01.2010. 22:15 ] @
1. Otvori tvoj dokument
2. Pritisni Alt+F11
3. Insert/Module
4. Ubaci kod

Code:

Public Sub SelektujRedove()
Dim c As Range
Dim s As String
    For Each c In Selection
        s = s & "," & c.Row & ":" & c.Row
    Next c
    Range(Right(s, Len(s) - 1)).Select
End Sub


5. Zatvori prozor VB-editora
6. Selektuj kako-vec-to-radis tvoje celije
7. Pritisni Alt+F8
8. Nadji na spisku SelektujRedovi i pritisni RUN

--- to je to!

A mozes i da dodas svoj taster kojim ces da aktiviraj ovu proceduru. Npr.

1. Tools/Customize
2. Na Commands tabu odaberi Macros
4. Odaberi Custom Toolbar Button (zuti smajli) i prevuci ga na (recimo) Formating toolbar na zeljenu poziciju
5. Desni klik misem na tvog zutog smajlija (na toolbaru gde si ga odvukao)
6. Odaberi Assign Macro (nije Assassin Macro mada slicno zvuci ;-)
7. Nadji na spisku SelektujRedovi i Assign

--- to je to!

Probaj da selektujes celije i da kliknes na smajlija ;-)

A ako ti je ova funkcionalnost cesto neophodna, mozes i da definises svoju precicu sa tastature
(odlicno za one koji su kao ja manijaci za tastaturu i vise vole precice nego misa -;)

1. Pritisni Alt+F8
2. Nadji i odaberi makro SelektujRedove a onda pritisni dugme Options
3. Unesi svoju zeljenu precicu (npr. Ctrl+w - ova precica inace sluzi za zatvaranje prozora/dokumenta ali vecina korisi Ctrl+F4)

--- to je to!

Probaj da selektujes neke celije i da pritisnes Ctrl+w

Pozdrav
[ mrkii @ 12.01.2010. 23:00 ] @
Hvala jos jednom na iscrpnom objasnjenju. :)
Siguran sam da ce jos nekome biti od koristi.


Probao sam na jednoj tabeli i radilo je. Tabela je bila mala ako je to bitno.

Medjutim, na tabelama koje meni trebaju nesto nece. Izbacuje gresku: