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