X
ďťż

Mefisto...diabeł czy anioł?

Witam,

Pilnie potrzebuję pomocy w stworzeniu makra, które wykona:

Wyszukać te wiersze, gdzie ID w arkuszach1 i 2 są takie same i z akrusza nr 2 skopiować zakres C do V i wkleić go do arkusza nr 1 w pola od M do AG ( z nadpisaniem, jeśli są już jakieś dane)
UWAGA ! w arkuszu nr 1 są ukryte kolumny (D:I).

Potrzebuję to makro na dzisiaj, jest to dla mnie bardzo pilna sprawa - będę wdzięczny za odzew.

Pozdrawiam

-----

Chodzi mi o coś takiego tylko zautomatyzowane....



Sub Makro3()

    Range("A2").Select
    Selection.Copy
    Sheets("1").Select
    Columns("C:C").Select
    Selection.Find(What:="10882", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("2").Select
    Range("C2:V2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("1").Select
    Range("N5").Select
    ActiveSheet.Paste
   
End Sub


znalazłem takie makro, ale nie za bardzo wiem jak je "dostosować" do moich potrzeb....



Sub szukaj()
Dim firstAddress As String
Dim a As String
a = Cells(5, 2).Value
i = 0
If a = "" Then Exit Sub
With Worksheets("Arkusz1")
Set c = .Range("D:D").Find(a, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not c Is Nothing Then
firstAddress = c.Address
Range("B" & c.Row & ":" & "P" & c.Row).Copy _
Destination:=Cells(10 + i, 1)

End If
Do
Set c = .Range("D:D").FindNext(c)
.Range("B" & c.Row & ":" & "P" & c.Row).Copy _
Destination:=Cells(10 + i, 1)
i = i + 1
Loop While Not c Is Nothing And c.Address <> firstAddress
End With
End Sub


Pomóżcie bo szef mnie ......

Problem został rozwiązany tutaj http://www.excelforum.pl/...klej-vt7020.htm
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.