Excel VBA – filtrowanie kolumny po nazwie pliku makra zmieniającej się (data w nazwie)

Nigdy nie robiłem nic w VBA a mam coś takiego do zrobienia:
Mam plik, w którym zmienia się nazwa (data). Chce stworzyć makra, po uruchomieniu których odpowiednia kolumna w pliku wejściowym zostanie przefiltrowana po nazwie pliku z makrem.
Proszę o pomoc

Możesz jaśniej? Być może makro nie jest potrzebne.
Jeśli data jest w nazwie, to da się ją wyekstrahować z KOMÓRKA("nazwa_pliku") i użyć w filtrowaniu.

Po prostu generuje raport z danego okresu i po wygenerowaniu muszę utworzyć pliki po przefiltrowaniu względem jednej z kolumn

Dodano po 6 [minuty]:

Mniej więcej wygląda to tak, że jest kolumna złożona z "A", "B" itd. i chciałbym utworzyć pliki o nazwach właśnie "A", "B", ... po uruchomieniu których dostaje zawartość pliku wejściowego po przefiltrowaniu po tej kolumnie. Ma wyrzucić mi tylko te rekordy, gdzie w kolumnie np. D jest nazwa "A"

Kolejne pytanie:
chciałbym stworzyć makro, które przy dzieleniu pliku na mniejsze (sortowanie po jednej z kolumn, to już mam) w trakcie dzielenia w drugim arkuszu np. w komórce B2 (arkusz2) sumowało po wybranej kolumnie (G - arkusz1) przy warunkach wartości w kolumnie C(arkusz1)>0 i E(arkusz1)='szkoła'.
Mam problem z zapisaniem tego, bardzo proszę o pomoc.

Witam
do PW:
ActiveCell.FormulaR1C1 = "=SUMIFS('Arkusz1'!R[1]C[11]:R[1000]C[11],R[1]C[14]:R[1000]C[14],"=0")"
Pisałem wcześniej - nie "=0" a ""=0""

*JRV co za świetne rozwiązanie. po sprawdzeniu notatek stało się to dla mnie jaśniejsze.

Przepraszam, o co idie?

w którym miejscu należy zamieścić instrukcje o usunięciu kolumn? mam taki kod:

Sub Kr()
Dim bs As Range, r&, i&, j&
Dim ik As Boolean, wb As Workbook, br As Range
Dim b
Set bs = ThisWorkbook.Sheets(1).Columns(4).Cells
Set br = ThisWorkbook.Sheets(1).Rows
Set a = New Collection
r = 1
While bs(r + 1) <> Empty
r = r + 1
ik = False
For Each b In a
If b = bs(r) Then ik = Not ik: Exit For
Next
If Not ik Then a.Add bs(r).Text
Wend
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each b In a
Set wb = Workbooks.Add
j = 1
With wb
With .Sheets(1)
br(1).Copy .Rows(j)
For i = 2 To r
If bs(i) = b Then
j = j + 1
br(i).Copy .Rows(j)
End If
Next
Sheets.Add After:=Sheets(Sheets.Count)
.SaveAs ThisWorkbook.Path & "\" & "Partner" & " " & b & " " & "- styczeń 2014" & ".xlsx"
.Close False
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Set wb = Nothing
Set a = Nothing
End Sub

i chciałbym usunąć w trakcie podziału pliku kolumny, np. B i E

Coś niewłaściwie skopiowany ten kod. Mają podwójne "With", a raz "End With"

Dodano po 7 [minuty]:

Witam może się podepnę nieco pod wasz wątek i mam nadzieję na fahowe rozwiązanie mojego problemu.
Od dłuższego czasu używam do fakturowania arkusza excel i problem się pojawił jak zmieniłem komputer tzn plik się otwiera ale klawisze po prawej nie działają mimo iż makra mam odblokowane całkowicie chce na przykład dodać nowy towar i po naciśnięciu wyskakuje mi błąd.

Plik ten zassałem z niedziałającej już strony excelhelp.pl facet miał naprawdę pojęcie o xls-sie a tego arkusza nie chciałbym zamieniać na nic innego bo jest świetny

Będę bardzo wdzięczny za pomoc

jeszcze takie pytanie:
chciałbym, żeby makro zapisywało dwie wersje pliku: jedna z usuniętymi kolumnami, druga ze wszystkimi. gdzie powinno być kolejne SaveAs?

Do mknoe - Odgadnąć hasło do makro, lub sam powiedziesz?

wb.SaveAs ...........
.Columns(5).Delete 'E

Kolego JRV za diabła nie wiem o czym do mnie mówisz z excela jestem zupełnym laikiem więc bardzo Cię proszę, o co chodzi z tym odgadywaniem hasła?

i nie bardzo rozumiem co to znaczy lub co mam z tym zrobić:
wb.SaveAs ...........
.Columns(5).Delete 'E

pomocy proszę trochę jaśniej POZDRAWIAM I DZIĘKUJĘ

Dodano po 3 [minuty]:

Jeśli chcesz żebym podał hasło do ochrony arkusza to nie mam pojęcia jakie jest jak już pisałem jestem tylko użytkownikiem tego arkusza nie twórcą

mknoe napisał:

wb.SaveAs ...........
.Columns(5).Delete 'E

- to dla Tored

Jestem również nie autorem tego arkusza , ale tam wszystko pod hasłem, jak rozwiązać, to może coś pomoże

Dodano po 5 [minuty]:

mknoe napisał:

na przykład dodać nowy towar i po naciśnięciu wyskakuje mi błąd.

najmniej zrzuty ekranu dla tych błędów

Dodano po 4 [godziny] 45 [minuty]:

mknoe napisał:

Od dłuższego czasu używam do fakturowania arkusza excel

Aby Załącznik arkusza roboczego. Z powodu ten (faktura_vat_2_1_007515b.xls
) brak daty faktury i data sprzedaży w 'FaktDataNumer'

jak i termin płatności.

A gdzie mialo byc 'kalendarz'?

Problemy z programem do faktur spowodowane są brakiem w systemie Windows kontrolki Date Time Picker. Zainstaluj ją i zarejestruj i powinno być dobrze.

powyżej dokładniej pokazywało FaktDataNumer, nie jest gdzie wprowadzić datę.
Nawiasem mówiąc, w makra nie jest data, a teraz (22.02.2014 19:29:43)
Makro próbuje wprowadź go w polu, które nie jest w formie.
W każdym razie czekam na odpowiedź autora postu mknoe

Po odbezpieczeniu skoroszytu można zobaczyć kod i użyte w projekcie kontrolki. Przyczyną błędów jest brak w systemie Date Time Picker. O rozwiązywaniu problemów z instalowaniem tej kontrolki jest wiele postów na Elektrodzie.