napisał: kedarj
postów: 2
 umieszczony:
27 sierpnia 2012
10:25
|
|
podejrzewałem, że rozwiązanie nie jest skomplikowane. :)
wszystko pieknie działa :)
wielkie dzięki zamykam wątek |
|
|
napisał: Trebor
postów: 1209
umieszczony:
24 sierpnia 2012
17:42
|
|
Dodaj arkusz i przekopiuj do niego dane. Coś w rodzaju:
Sub dd()
With Sheets.Add(After:=Sheets("Numer"))
.Name = "Mietek"
Sheets("Arkusz1").Cells.Copy .Range("A1")
End With
End Sub |
|
|
napisał: kedarj
postów: 2
umieszczony:
24 sierpnia 2012
14:54
|
|
Witam,
problem możliwe że jest trywialny, ale nie mogę sobie poradzić. Chcę udostępnić plik, aby kilka osób mogło jednocześnie z niego korzystać.
Mam problem z poniższym kodem. Wyskakuje mu błąd 1004, dane polecenie nie może być użyte przy udostępnianym pliku. Pomóżcie jak to rozwiązać, ewentualnie zamienić kod na inny. Nie ma problemu gdy plik nie jest udostępniany.
Worksheets("Arkusz1").Copy After:=Worksheets("numer")
ActiveSheet.Range("zlecenie") = .Cells(a, 15)
ActiveSheet.Name = .Cells(a, 15)
Dzieki z góry |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
