Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel/VBA - Pliki makra w Excel/VBA

tored 14 Lis 2013 10:01 3084 16
  • #1 14 Lis 2013 10:01
    tored
    Poziom 6  

    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 :)

    0 16
  • #2 14 Lis 2013 10:16
    adamas_nt
    Moderator Programowanie

    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.

    Excel/VBA - Pliki makra w Excel/VBA

    0
  • #3 14 Lis 2013 11:18
    tored
    Poziom 6  

    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" :)

    0
  • #4 14 Lut 2014 21:08
    tored
    Poziom 6  

    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.

    0
  • #5 14 Lut 2014 21:38
    JRV
    Specjalista - VBA, Excel

    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""

    0
  • #6 16 Lut 2014 22:12
    mocarny66
    Poziom 10  

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

    0
  • #7 16 Lut 2014 22:25
    JRV
    Specjalista - VBA, Excel

    Przepraszam, o co idie?

    0
  • #8 20 Lut 2014 18:41
    tored
    Poziom 6  

    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

    0
  • Pomocny post
    #9 20 Lut 2014 19:01
    JRV
    Specjalista - VBA, Excel

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

    Dodano po 7 [minuty]:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #10 20 Lut 2014 22:48
    mknoe
    Poziom 9  

    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

    0
  • #11 21 Lut 2014 11:03
    tored
    Poziom 6  

    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?

    0
  • #12 21 Lut 2014 16:36
    JRV
    Specjalista - VBA, Excel

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

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

    0
  • #13 21 Lut 2014 22:12
    mknoe
    Poziom 9  

    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ą :)

    0
  • #14 22 Lut 2014 12:52
    JRV
    Specjalista - VBA, Excel

    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'
    Excel/VBA - Pliki makra w Excel/VBA
    jak i termin płatności.

    A gdzie mialo byc 'kalendarz'?

    0
  • #15 22 Lut 2014 19:17
    czeles
    Poziom 16  

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

    0
  • #16 22 Lut 2014 20:00
    JRV
    Specjalista - VBA, Excel

    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

    0
  • #17 23 Lut 2014 12:50
    czeles
    Poziom 16  

    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.
    Excel/VBA - Pliki makra w Excel/VBA

    0
  Szukaj w 5mln produktów