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.

makra/excel - Kopiowanie danych filtrowanych do nowych arkuszy

lukesoul 07 Lis 2012 14:26 9759 32
  • #31 07 Lis 2012 14:26
    pitermxa
    Poziom 17  

    Jak w VBA są krzaczki to na pewno tutaj też jest problem, tymbardziej, że zarówno w nazwach arkuszy jak i skoroszytów są polskie znaki. Taka już zmora VBA, generalnie unika się w ogóle znaków specjalnych w vba.

  • #32 08 Lis 2012 10:09
    lukesoul
    Poziom 9  

    Cześć,

    Zmieniłem dla ciekawości w skoroszytach z polskich na nie polskie np. księgowość ---> ksiegowosc. i po jakiejkolwiek zmianie wszystko jest OK.

    Jeszcze jak będę miał możliwość sprawdzę z tymi ustawieniami regionalnymi.

  • #33 15 Lut 2014 17:55
    misiekbad
    Poziom 1  

    Witam,

    Mam podobny problem co kolega wcześniej.
    Mam makro które importuje dane z wielu arkuszy i różnych plików (będących w jednym katalogu) do jednego.
    Jednak brakuje mi w nim założenia, że ma importować z tych plików tylko dane gdzie Arkuszu 1 i kolumnie B znajdują się wartości np 25 i 26 (taki jakby =jeżeli)

    Będę wdzięczny za pomoc.


    Poniżej obecny kod

    Sub Merge()
    Dim bookList As Workbook
    Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
    Application.ScreenUpdating = False
    Set MergeObj = CreateObject("Scripting.FileSystemObject")
    Set dirObj = MergeObj.Getfolder("C:\Users\Inne\Desktop\pliki")

    Set filesObj = dirObj.Files
    For Each everyObj In filesObj
    Set bookList = Workbooks.Open(everyObj)


    Range("A4:AL" & Range("A65536").End(xlUp).Row).Copy

    ThisWorkbook.Worksheets(1).Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

    Application.CutCopyMode = False
    bookList.Close
    Next
    End Sub