Help

Здр. отново аз.предполагам, че това което ще питам го има някъде из клуба, но не мога да го открия :-(

Интересува ме следното дали може да се направи макрос, който да копира само редовете ако стойността на колона "C=София"
ще се опитам да поясня

A:A =ime
B:B=data na rajdane
C:C = mestojiveene i t.n

Ако в клетка C=СОФИЯ" тогава копирай A:C ,но не само за 1 ред а за всички редове т.е да копира всички редове които съдържат "София" в клетка C

Ужас дано да разберете нещо

Много благодарност

Поздрави
Теди

Къде да се копира?

Все едно аз отстаналата част от макроса ще го наглася, но нека ги "pastva" sheet2!
Мерси

Виж това


Sub MyFilter()
Set wb = ActiveWorkbook
Set ws1 = ActiveSheet
Set ws2 = wb.Sheets(2)
rmax = ws1.UsedRange.Rows.Count
For r = 1 To rmax
If ws1.Cells(r, 3) = "София" Then
ws1.Cells(r, 1).EntireRow.Copy
rr = 1
While ws2.Cells(rr, 3) <> Empty
rr = rr + 1
Wend
ws2.Activate
ws2.Range("a" & rr).Activate
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next r
End Sub

МНОГО БЛАГОДАРЯ!