Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 62435 Skopiuj do schowka Formularz wysłania raportu z rejestru
Autor Wiadomość
RafiG41
Stały bywalec Excelforum


Posty: 417
Wysłany: 13-01-2019, 17:30   

Zrobiłem jak prosiłeś (odsłoniłem wszystkie arkusze i zdjąłem ochronę hasłem).
Zrobiłem także w arkuszu "Raport" odwołanie do poszczególnych rodzajów wad z arkusza "pomoc" - tak jak pisałeś poprzednio, że w komórkę R12:
Kod:
=pomoc!P2

itd...
Problem z tym odwołaniem jest jednak taki, że po wyeksportowaniu raportu do maila pojawia się w pasku formuł ścieżka do pliku z którego pobrane zostały te nazwy.
Czy można zrobić tak, żeby po pobraniu tych nazw w arkuszu zapisywanym do maila były wklejone tylko wartości?

REJESTR.xlsm
Pobierz Plik ściągnięto 21 raz(y) 484.87 KB

Raport_2018-12-24_poranna.xlsx
Pobierz Plik ściągnięto 23 raz(y) 17.34 KB

ID posta: 360382 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1565 razy
Posty: 4932
Wysłany: 14-01-2019, 09:07   

Można to zrobić np. takim makrem:
Kod:
Sub z_pomocy_do_raportu()
Dim i&
With Worksheets("Raport")
    For i = 18 To 39
        .Cells(12, i).Value = Worksheets("pomoc").Cells(i - 16, 16).Value
    Next
End With
End Sub
ID posta: 360418 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 417
Wysłany: 15-01-2019, 17:32   

Witajcie,
Mam jeszcze taki problem z wysyłaniem raportu, bo gdy w arkuszu "pomoc" w komórce N2
zmieniam wcześniej wpisaną z ręki datę na formułę =DZIŚ(), to podczas próby wysłania raportu pojawia się błąd kodu w tym miejscu:
Kod:
With Sheets("Czas_pracy")

Czy mogę prosić o odpowiednią modyfikacje kodu, żeby pozwalała na wykorzystanie formuły =DZIŚ()?

REJESTR_2019.xlsm
Pobierz Plik ściągnięto 21 raz(y) 487.9 KB

ID posta: 360513 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1565 razy
Posty: 4932
Wysłany: 16-01-2019, 08:18   

Jaki błąd?
Jakiego kodu?
ID posta: 360578 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 417
Wysłany: 16-01-2019, 17:43   

Błąd jest w tej części kodu VBA (out of range):
Kod:
Private Sub odswiezCzasZmiany()
Dim poz
Dim w&
With Sheets("Czas_pracy")

W pliku "REJESTR_2019" jak możesz to spróbuj wysłać raport dla dnia 2019-01-16 i zmiany porannej - wówczas będzie ten błąd o którym pisze i o którego poprawienie proszę. W tym pliku a arkuszu "pomoc" w komórce N2 jest wpisna formuła DZIŚ.
Dla porównania - w drugim pliku "REJESTR_ręcznie", w arkuszu "pomoc", w komórce N2 data 2019-01-16 wpisana jest ręczne (bez formuły) i raport wysyła się prawidłowo.

REJESTR_2019.xlsm
Pobierz Plik ściągnięto 25 raz(y) 486.65 KB

REJESTR_ręcznie.xlsm
Pobierz Plik ściągnięto 27 raz(y) 486.6 KB

ID posta: 360614 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 417
Wysłany: 22-01-2019, 18:06   

Podpowiecie co trzeba zrobić aby rozwiązać problem z poprzedniego postu?
ID posta: 361045 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe