GoldenLine
Zaloguj się

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora

konto usunięte

Temat: Makro - kopiowanie wybranych wierszy

po co sql jak mozna i tak


Sub open_copy_paste_n_close()

Dim thiswkb As Workbook, wkb As Workbook, min_row&

Dim rngWiedervorlage As Range, rngAngebotserstellung As Range

Dim LastRowW As Integer, LastRowA As Integer

Dim i As Integer

Dim Exists As Boolean





Set thiswkb = ActiveWorkbook



 Workbooks.Open Filename:= _

        "O:\020_Datenaustausch\Wiedervorlageliste_Angebote.xlsx"

        

Set wkb = ActiveWorkbook



With wkb.Sheets(1)

    LastRowW = wkb.Sheets(1).Cells(Rows.Count, "g").End(xlUp).Row

End With



With thiswkb.Sheets("Angebote")

    LastRowA = thiswkb.Sheets("Angebote").Cells(Rows.Count, "g").End(xlUp).Row

    

    For i = 3 To LastRowW

        If (wkb.Sheets(1).Cells(i, "g").Value <> "") Then

            j = 1

            Exists = False

            

            While Exists = False And j <= LastRowA

            

                If (wkb.Sheets(1).Cells(i, "g").Value = thiswkb.Sheets("Angebote").Cells(j, "g").Value) Then

                    Exists = True

                End If

                j = j + 1

            

            Wend

            

            If (Exists <> True) Then

                wkb.Sheets(1).Range("A" & i & ":M" & i).Copy Destination:=thiswkb.Sheets("Angebote").Range("A" & LastRowA + 1)

                LastRowA = LastRowA + 1

            End If

                        

        End If

    Next i

        

End With



Windows("Angeboterstellung.xlsm").Activate

Workbooks("Wiedervorlageliste_Angebote.xlsx").Close SaveChanges:=False

End Sub
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Makro - kopiowanie wybranych wierszy

Piotr Z.:
po co sql jak mozna i tak
Szkoda się wysilać. Istnieje jedno słuszne, poprawne i najlepsze rozwiązanie.
Rozwiązanie podane przez Pana WG.
Wait.... Pan WG oczywiście nie podał rozwiązania, tylko wkleił swoją reklamę. SZOK!
I tak w 90% przypadków. Rozwiązaniem jest link do tutka o Graficznym Edytorze Zapytań. Ewentualnie do filmików reklamowych afina.Ten post został edytowany przez Autora dnia 30.07.14 o godzinie 21:09
Link do wypowiedziLink
Marcin Sauczek

Marcin Sauczek

Temat: Makro - kopiowanie wybranych wierszy

Witam wszystkich

Panowie ja mam troszeczkę inny problem. Potrzebuje makro które najpierw sprawdza w arkuszu 1 np. w kolumnie E czy są wartości >=1. Jeśli powiedzmy E1=2 to ma on przekopiować cały wiersz np.1 z arkusza2 do arkusza3 jako wiersz 2. w kolumnie mam koło 30 takich wartości. wiem że strasznie pokręcone ale już wymiękłem siedząc i próbując to rozpracować;(
Link do wypowiedziLink
Tomasz Trochanowski

Tomasz Trochanowski Project Manager,
Secure Electrans Ltd

Temat: Makro - kopiowanie wybranych wierszy

Mam podobny problem i uprzejmie prosze o pomoc.

1. Codziennie osoba uzupelnie plik xls
2. Nastnie trzeba wybrac odpowiednie filtry
3. Zamienic ten plik na html (widoczny, kolorowy naglowek i linie tabeli)
4. Na koncu wyslac go jako zalacznik do odpowiednich osob. (to wiem jak zrobic)

Nie bardzo wiem natomiast jak napisc skrypt ktory, skopiuje plik podstawowy gdzies do innej lokalizacji, nastepnie wybierze z niego tylko te kolumny i wiersze ktore sa potrzebne i przerobi to na html.

Kazda podpowiedz mile widziana. ;-)Ten post został edytowany przez Autora dnia 11.11.14 o godzinie 17:21
Link do wypowiedziLink
Mateusz C.

Mateusz C. Regionalny Szef
Serwisu, Zeppelin
Polska Sp. z o.o.

Temat: Makro - kopiowanie wybranych wierszy

witam,
potrzebuje małej pomocy :)

Przygotowałem pewne zestawienie składające się z około 10 arkuszy. Teraz chciałbym wyłowić ze wszystkich arkuszy powtarzające się ciągi znaków składające się z 3 liter np. XYZ i automatycznie skopiować cały wiersz w którym wystąpił ciąg znaków do nowego arkusza o takiej samej nazwie (XYZ).
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Makro - kopiowanie wybranych wierszy

No cóż a ja polecę portal VBATools gdzie można znaleźć wiele narzędzi do tworzenia i wysyłania htmli, Tomaszu; Jak i dzielenia danych na osobne arkusze, Mateuszu

Również wiele innych rozwiązań automatyzacji danych w Excelu, Outlooku Worda i PowerPoincie.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Makro - kopiowanie wybranyc...




Wyślij zaproszenie do
Anuluj