Witajcie jeszcze raz,
Juz tak z rozpedu zadam jeszcze jedno pytanie a propos kodu z poprzedniego postu. Chciałbym żeby dane wpisywane do formularza byly przesylane do konkretnej komórki.
Teraz jest tak:
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")
Zapisuje dane w wierszach jeden pod drugim.
Natomiast ja chcę, żeby było tak:
With Sheets("NSD1")
ostatnia = .Columns("A:AB").Find(What:="*", After:=.Cells(1, 1), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
.Cells(Sheets("ArkuszX").Range("A1"), 1))) = Sheets("Arkusz5").Range("F35")
.Cells(Sheets("ArkuszX").Range("B1"), 2))) = Sheets("Arkusz5").Range("F41")
.Cells(Sheets("ArkuszX").Range("C1"), 3))) = Sheets("Arkusz5").Range("F44")
Dobrze kombinuję ? Jak zmienić definicję "ostatnia", zeby to mogło poprawnie zadziałać. Poniżej cały kod. Z góry dzięki za pomoc
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
otwarty rozpoczął: adeling-herman
postów: 1
