napisał: adeling-herman
postów: 14
 umieszczony:
12 maja 2011
14:10
|
|
Dzięki Trebor za pomoc :)
Pozdr
A-H |
|
|
napisał: Trebor
postów: 1209
umieszczony:
29 kwietnia 2011
20:45
|
|
Największy z tym problem to sprawdzenie czy skoroszyt docelowy jest otwarty. Jeśli ten krok możemy pominąć to nie musi to być skomplikowane.
Zerknij tu http://www.vbamania.pl/?go=forum&go2=zobacz&id_watek=1565. Karolina pisze makra z górnej półki i dzięki temu można dużo podpatrzeć. Jeśli będzie to dla Ciebie zbyt trudne, możemy uprościć, ale lepiej nie będzie. |
|
|
napisał: adeling-herman
postów: 14
umieszczony:
29 kwietnia 2011
10:37
|
|
Witajcie !
Jakiś czas temu Trebor pomógł mi w kwestii przygotowania kodu do przenoszenia danych z formularza do arkusza xls.
Poniższy kod jest w głównej mierze dziełem Trebora. Ja go trochę przerobiłem. Chciałbym teraz zeby dane z formularza rejestrowały się NIE w tym samym arkuszu, ale byly przesylane do innego pliku excel. Jaką modyfikację mam wprowadzić (i gdzie) w ponizszym kodzie ? Za pomoc z góry dziękuję.
Pozdr
A-H
Sub Makro12()
Dim ostatnia As Long
If Sheets("Arkusz5").Range("F35") = "" Then MsgBox "Wpisz ilość zużytego gazu": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz5").Range("F41") = "" Then MsgBox "Wpisz zużycie energii elektrycznej": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz5").Range("F44") = "" Then MsgBox "Wpisz cenęjednostkową energii elektrycznej": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz5").Range("F50") = "" Then MsgBox "Wpisz zuzycie oleju opałowego": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz5").Range("F53") = "" Then MsgBox "Wpisz stawkę za gaz": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F38") = "" Then MsgBox "Wpisz stawkę za opłatę abonamentową": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F41") = "" Then MsgBox "Wpisz ilość opłat abonamentowych": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F44") = "" Then MsgBox "Wpisz stawkę przesyłową stałą": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F47") = "" Then MsgBox "Wpisz stawke za opłatę przesyłową zmienną": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F50") = "" Then MsgBox "Wpisz stawkę opłaty za przekroczoną moc": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F53") = "" Then MsgBox "Wpisz ilość opłat za przekroczoną moc": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F56") = "" Then MsgBox "Wpisz produkcje ciepła przez kotłownię VWP": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F59") = "" Then MsgBox "Wpisz opcję 43% Dalkia, 57% KVWP": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F62") = "" Then MsgBox "Wpisz płace obsługi": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F65") = "" Then MsgBox "Wpisz amortyzację": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("F68") = "" Then MsgBox "Wpisz materiały exploatacyjne": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O35") = "" Then MsgBox "Wpisz cenę jednostkową za wodę/ścieki": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O38") = "" Then MsgBox "Wpisz wartość opałową gazu": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O41") = "" Then MsgBox "Wpisz wartość opałową oleju opałowego": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O44") = "" Then MsgBox "Wpisz cenę oleju opałowego": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O46") = "" Then MsgBox "Wpisz oszczędność z tytułu mniejszej mocy zamówionej na lakierni": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O50") = "" Then MsgBox "Wpisz Wu": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O53") = "" Then MsgBox "Wpisz zużycie wody ścieków": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O56") = "" Then MsgBox "Wpisz korektę za gaz (ilość)": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O59") = "" Then MsgBox "Wpisz opcję 43% dalkia 57% KVWP (koszt ciepła z Dalkia": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz6").Range("O62") = "" Then MsgBox "Wpisz produkcję ciepła przez KVWP (koszt ciepła z Dalkia": Exit Sub: MsgBox "Dane nie zapisane"
If Sheets("Arkusz5").Range("k35") = "" Then MsgBox "Wpisz miesiąc wydania faktury": Exit Sub: MsgBox "Dane nie zapisane"
With Sheets("NSD1")
ostatnia = .Columns("A:Ab").Find(What:="*", After:=.Cells(1, 1), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
.Cells(ostatnia, 1) = Sheets("Arkusz5").Range("F35")
.Cells(ostatnia, 2) = Sheets("Arkusz5").Range("F41")
.Cells(ostatnia, 3) = Sheets("Arkusz5").Range("F44")
.Cells(ostatnia, 4) = Sheets("Arkusz5").Range("F50")
.Cells(ostatnia, 5) = Sheets("Arkusz5").Range("F53")
.Cells(ostatnia, 6) = Sheets("Arkusz6").Range("F38")
.Cells(ostatnia, 7) = Sheets("Arkusz6").Range("F41")
.Cells(ostatnia, 8) = Sheets("Arkusz6").Range("F44")
.Cells(ostatnia, 9) = Sheets("Arkusz6").Range("F47")
.Cells(ostatnia, 10) = Sheets("Arkusz6").Range("F50")
.Cells(ostatnia, 11) = Sheets("Arkusz6").Range("F53")
.Cells(ostatnia, 12) = Sheets("Arkusz6").Range("F56")
.Cells(ostatnia, 13) = Sheets("Arkusz6").Range("F59")
.Cells(ostatnia, 14) = Sheets("Arkusz6").Range("F62")
.Cells(ostatnia, 15) = Sheets("Arkusz6").Range("F65")
.Cells(ostatnia, 16) = Sheets("Arkusz6").Range("F68")
.Cells(ostatnia, 17) = Sheets("Arkusz6").Range("O35")
.Cells(ostatnia, 18) = Sheets("Arkusz6").Range("O38")
.Cells(ostatnia, 19) = Sheets("Arkusz6").Range("O41")
.Cells(ostatnia, 20) = Sheets("Arkusz6").Range("O44")
.Cells(ostatnia, 21) = Sheets("Arkusz6").Range("O46")
.Cells(ostatnia, 22) = Sheets("Arkusz6").Range("O50")
.Cells(ostatnia, 23) = Sheets("Arkusz6").Range("O53")
.Cells(ostatnia, 24) = Sheets("Arkusz6").Range("O56")
.Cells(ostatnia, 25) = Sheets("Arkusz6").Range("O59")
.Cells(ostatnia, 26) = Sheets("Arkusz6").Range("O62")
.Cells(ostatnia, 27) = Date
.Cells(ostatnia, 28) = Sheets("arkusz5").Range("k35")
End With
Sheets("Arkusz5").Range("F35,F38,F41,F44,F47,F49,F50,F53,k35").ClearContents
End Sub |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
