|
TwojePC.pl © 2001 - 2024
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
do fachowców od Excela, mam problem z makrem... , Kalkin 10/01/03 12:53
Najpierw przedstawie całe zagadnienie:
mam dwa pliki excela:
1 z cennikiem
2 z ofertą
przy pomocy makra oferta kopiuje zaznaczoną pozycję z cennika
wszystko jest ok do czasu gdy mam uruchomić arkusze na Openoffice ( ma on ograniczenie na ilosc wierszy - 32 tysiące; cennik ma ich 60 tysięcy )
podzieliłem cennik na dwa arkusze tylko źle przebudowałem makro ( kompletnie się nie znam na tym )
umieszczam najpierw nie zmodyfikowane makro:
Sub Makro2()
On Error GoTo BrakArtykulu
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
xRef = Selection
'wybór artykulu
iTypsystemu = Cells(1, 1).Value
'typ systemu pobierany z listy opuszczanej
Windows("CENANEW2.XLS").Activate
Sheets(iTypsystemu).Select
Cells.Find(What:=xRef, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("OFERTA.xls").Activate
Sheets(1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Exit Sub
BrakArtykulu:
Windows("OFERTA.xls").Activate
Sheets(1).Select
Msg = "Brak tego artykułu w tym systemie!"
Style = vbOKOnly
Title = "Błąd !"
Response = MsgBox(Msg, Style, Title)
Application.CutCopyMode = False
'odznaczenie artykułu do kopiowania
End Sub
teraz zamieszczam modyfikację tego makra ( to jest moja teoria - pewnie błędna ):
Sub Makro2()
On Error GoTo Szukanie2
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
xRef = Selection
'wybór artykulu
iTypsystemu = Cells(1, 1).Value
'typ systemu pobierany z listy opuszczanej
Windows("CENNIK_1.XLS").Activate
Sheets(iTypsystemu).Select
Cells.Find(What:=xRef, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("OFERTA_pop.xls").Activate
Sheets(1).Select
ActiveSheet.Paste
Szukanie2:
ActiveCell.Offset(1, 0).Range("A1").Select
Windows("CENNIK_2.XLS").Activate
Sheets(iTypsystemu).Select
Cells.Find(What:=xRef, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Range("A1:I1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("OFERTA_pop.xls").Activate
Sheets(1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Exit Sub
BrakArtykulu:
Windows("OFERTA_pop.xls").Activate
Sheets(1).Select
Msg = "Brak tego artykułu w tym systemie!"
Style = vbOKOnly
Title = "Błąd !"
Response = MsgBox(Msg, Style, Title)
Application.CutCopyMode = False
'odznaczenie artykułu do kopiowania
End Sub
wyświetla mi ze jest błąd 91 w liniach:
Cells.Find(What:=xRef, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
plis pomocy
co źle zrobiłem...The requested URL was not found
on this server ! Error 404 - może przed Szukanie2: powinno być ExitSub , Zajkos 10/01/03 14:21
j.w. - odp , Alex 10/01/03 15:07
A mozna prosić polską wersję językową , to wtedy pomogę
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
 |
|
|
|
