Aktywne Wpisy
illmatic +498
#sejm #niedzielahandlowa
Niech już wszystkie niedziele będą prawdziwie handlowe. Pozwólmy ludziom zarabiać pieniądze.
Obecnie wszystkie niedziele są handlowe ale zarabia jedynie Żabka, czyli Rydzyk.
Kto się zgadza proszę o podniesienie ręki i naciśnięcie plusa.
Niech już wszystkie niedziele będą prawdziwie handlowe. Pozwólmy ludziom zarabiać pieniądze.
Obecnie wszystkie niedziele są handlowe ale zarabia jedynie Żabka, czyli Rydzyk.
Kto się zgadza proszę o podniesienie ręki i naciśnięcie plusa.
jan-chrzciciel +38
#!$%@? co się #!$%@?ło to ja nawet nie ( ͡º ͜ʖ͡º)
Siedzę sobie na chacie, przeglądam internet nagle słyszę walenie i dzwonienie do dzwi - policja otwierać. Otwieram i się pytam co jest - możemy wejśc tak, tylko chwila ubiorę się bo w samych gaciach byłem i pytam się dalej ale o co chodzi? Wbijaja mi na pokój i mówią, że mamy zgłoszenie dotyczące tego, że napisał
Siedzę sobie na chacie, przeglądam internet nagle słyszę walenie i dzwonienie do dzwi - policja otwierać. Otwieram i się pytam co jest - możemy wejśc tak, tylko chwila ubiorę się bo w samych gaciach byłem i pytam się dalej ale o co chodzi? Wbijaja mi na pokój i mówią, że mamy zgłoszenie dotyczące tego, że napisał
Sub createcsv()
Dim FileName As String
Dim PathName As String
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("SHEET2")
FileName = "NEWFILE" & Sheets("SHEET1").Range("E6").Value & ".csv"
PathName = Application.ActiveWorkbook.Path
ws.Copy
ActiveWorkbook.SaveAs FileName:=PathName & "\" & FileName,
FileFormat:=xlCSV, CreateBackup:=False
Ale potrzebuję kopiować same wartości, a w tej chwili kopiują mi się formuły (tak, wiem, po zapisaniu pliku CSV zostaną już same wartości, ale chcę żeby się one od razu wyświetlały, a nie żeby były tam formuły).
Jest to pewnie kwestia dodania jednej linijki, z tego co widzę to pewnie wrzucenia gdzieś PasteSpecial xlPasteValues, ale jakoś nie mogę wykminić jak.
#excel #vba
ThisWorkbook.Worksheets("SHEET2").CopyActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
No chyba że koniecznie chcesz skopiować od razu zawartość arkusza do nowego pliku. Wtedy to będzie tak:
Set new_wb = Application.Workbooks.AddApplication.DisplayAlerts = False
new_wb.Worksheets(1).Delete
new_wb.Worksheets(1).Delete
Application.DisplayAlerts = True
Set new_ws = new_wb.Worksheets(1)
ThisWorkbook.Worksheets("SHEET2").UsedRange.Copy
new_ws.Cells(1, 1).PasteSpecial xlPasteValues
@croppz: po prostu żeby użyte formuły w tym arkuszu nie były w ogóle widoczne.
Ale ja nie rozumiem, w jaki sposób mam zastosować Twój kod, bo samo doklejenie w którymś miejscu nie zadziała.
Filename = "NEW_FILE_" & ThisWorkbook.Sheets("SHEET1").Range("E6").Value & ".csv"PathName = ThisWorkbook.Path
ThisWorkbook.Worksheets("SHEET2").Copy
ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
ActiveWorkbook.SaveAs Filename:=PathName & "\" & Filename, _
FileFormat:=xlCSV, CreateBackup:=False
Ale swoją drogą komunikaty błędów w VBA to takie średnio pomocne są. Mam nadzieję, że nie będę musiał się uczyć tego języka, bo jakoś średnio przyjemne by to chyba było, jak ja już negatywnie nastawiony do tego jestem xD
Jeszcze raz dzięki!
on error resume next / if err.number = x... Długo by tak można wymieniać ( ͡° ͜ʖ ͡°)No np. w pythonie raczej nie zrobisz zadnych message boxów w excelu, zwłaszcza, jeśli arkusz będzie używanych przez różnych użytkowników