Aktywne Wpisy
mirko_anonim +46
✨️ Obserwuj #mirkoanonim
Dla większości to długi i szczęśliwy weekend, ale nie dla mnie. Wczoraj dowiedziałem się o zdradzie dziewczyny. Sama mi powiedziała, że jest ktoś inny a jej uczucia względem mnie się zmieniły i nie ma sensu w tym tkwić. Spakowała się i odeszła. On po nią przyjechał. Byliśmy ze sobą 6 lat. Na przyszły rok zaplanowany ślub weselny. Mieszkanie wynajmowałem ja i za nie płaciłem, bo ona nie mogła znaleźć
Dla większości to długi i szczęśliwy weekend, ale nie dla mnie. Wczoraj dowiedziałem się o zdradzie dziewczyny. Sama mi powiedziała, że jest ktoś inny a jej uczucia względem mnie się zmieniły i nie ma sensu w tym tkwić. Spakowała się i odeszła. On po nią przyjechał. Byliśmy ze sobą 6 lat. Na przyszły rok zaplanowany ślub weselny. Mieszkanie wynajmowałem ja i za nie płaciłem, bo ona nie mogła znaleźć
qew12 +63
"Zabij się, wymyślasz, rodzice powinni cię wyrzucić z domu."
Przez moje ostatnie posty aż mi się przypomniało jak społeczeństwa traktuje spierdonów, osoby z fobią, autystyków.
#przegryw ##!$%@? #fobiaspoleczna #autyzm #neet
Przez moje ostatnie posty aż mi się przypomniało jak społeczeństwa traktuje spierdonów, osoby z fobią, autystyków.
#przegryw ##!$%@? #fobiaspoleczna #autyzm #neet
Aktywne Znaleziska
Sub makro()
Application.ScreenUpdating = False
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If myFileName <> False Then
Workbooks.Open Filename:=myFileName
Set Owb = ThisWorkbook
Set Nwb = Workbooks.Open(Filename:=myFileName)
End If
Zeszyt = ActiveWorkbook.Name
Sheets("Arkusz1").Activate
Cells(2, 1).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(50000, 33)).Copy
ThisWorkbook.Activate
Sheets("Makro").Activate
Cells(2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks
:=False, Transpose:=False
Application.CutCopyMode = False
Nwb.Close False
Owb.Activate
Application.ScreenUpdating = True
Sheets("TEST").Activate
MsgBox "ZAIMPORTOWANO POZDRO"
End Sub
#excel
Dim ShName As String
ShName = InputBox("Podaj nazwę arkusza")
Sheets(ShName).Activate
Private Sub UserFormInitialize()
Dim N As Long
For N = 1 To ActiveWorkbook.Sheets.Count
ListBox1.AddItem ActiveWorkbook.Sheets(N).Name
Next N
End Sub
Następnie po wybraniu interesującego Arkusza jakiś przycisk, który będzie sczytywał zmienną za pomocą kodu:
Private Sub CommandButton1Click()
Dim ShName As Variant
ShName = ListBox1.Text
Sheets(ShName).Activate
End Sub