[EXCEL] Pogojno kopiranje na drug list

Torej, kopiral bi podatke iz enega lista na drugi list v excelu vendar s pogojem.
Primer:
List 1
A1=boris
B1=andrej
C1=cilka
D1=polonca

A2=nekaj
B2=nekaj drugega
C2=2222
D2=1111

A3=nekaj
B3=andrej
C3=2222
D3=1111
itd..

Sedaj mi naj na drugi list prekopira vse vrstice v katerih se nahaja recimo v B-stolpcu andrej. Se pravi tukaj bi mi skopiralo na list2 1 in 3 vrstico, drugo spusti ker ni B2 andrej.
Prosim za kodo, ker vem da ste dobri.

lp

Lahko narediš na hitro makro :

Sub CopyIt()

Const Vrstic As Long = 4 //Št. Vrstic Max
Const Stolpcev As Long = 4 //Št. Stolpcev Max

Const Search As String = "andrej" //Iščemo

Dim Vrstica As Long
Dim Stolpec As Long
Dim VrsticaNo As Long
Dim i As Long

Vrstica = 1
Stolpec = 1
VrsticaNo = 1

Check:
If UCase$(Sheet1.Cells(Vrstica, 2)) = UCase$(Search) Then //Iščemo v 2 stolpcu
For i = 1 To Stolpcev
Sheet2.Cells(VrsticaNo, i) = Sheet1.Cells(Vrstica, i)
Next i
VrsticaNo = VrsticaNo + 1
End If
Vrstica = Vrstica + 1
Stolpec = 1
If Vrstica > Vrstic Then MsgBox "Ok, končal", vbCritical: Exit Sub
GoTo Check
End Sub


Zadevo se da še pohitrit z funkcijami, no to bi bila ena rešitev.

Seveda, če potrebuješ še kaj smo vedno na voljo pomagati.

Sub CopyIt()

Const Vrstic As Long = 15
Const Stolpcev As Long = 5

Dim Search As String
Dim Vrstica As Long
Dim Stolpec As Long
Dim VrsticaNo As Long
Dim i As Long
Dim iStolpec As Long



Start:
Search = InputBox("Vnesi iskani string" & vbCrLf & "Vnesi prazno za preklic", "String")
If Len(Search) = 0 Then Exit Sub

iStolpec = InputBox("Vnesi stolpec za pregled iskalnega stringa " & """" & Search & """" & vbCrLf & "Vnesi 0 za preklic", "Št. stolpca")
If iStolpec = 0 Then Exit Sub

Vrstica = 1
Stolpec = 1
VrsticaNo = 1

Check:
If UCase$(Sheet1.Cells(Vrstica, iStolpec)) = UCase$(Search) Then
For i = 1 To Stolpcev
Sheet2.Cells(VrsticaNo, i) = Sheet1.Cells(Vrstica, i)
Next i
VrsticaNo = VrsticaNo + 1
End If
Vrstica = Vrstica + 1
Stolpec = 1
If Vrstica > Vrstic Then MsgBox "Ok, končal" & vbCrLf & "Skopiral sem " & VrsticaNo - 1 & " vrstic s stringom " & """" & Search & """" & " v stolpcu " & iStolpec, vbCritical: Exit Sub
GoTo Check

If MsgBox("Ali želite zagnati še kakšno ostalo poizvedbo ?", vbCritical + vbYesNo, "Ponoven zagon ?") = vbYes Then GoTo Start:
End Sub