please conntact me PM
Posts by sebseb
-
-
Carim tnnnnnnnnnnnxxxxxxxxxxxxxxxxxx:))) 10000000000 x time
next time when you visit SLO please contact me... i will pay you a coffee
here is overall tabel, if somebody need
-
i have to go on work:(
see you
-
carim.. where came you from??
-
-
btw... i wish to learn programing
-
Well ... the Do Loop is not exactly where it should be ...
and how is look like:)
-
no CODE is mine .... all find on inetrnet...
-
If you select Cancel or Exit ... the New sheet is created anyhow ... right ... YES
But ... by the way ... are you the author of this macro ...? ..... NO, is nor mine ... find on inetrnet (ni moja.. najdu sem jo na netu)
-
try and you will see what will happen
-
only what i need is when i push CANCEL or X then the process will deny or cencelbecause now i anyway sheet created and than i should delete sheet manual
-
Code
Display MorePrivate Sub CommandButton1_Click() Dim Actsheet As String Application.ScreenUpdating = False On Error Resume Next ActiveWorkbook.Sheets("Material_50").Visible = True ActiveWorkbook.Sheets("Material_50").Copy _ after:=ActiveWorkbook.Sheets("ZALOGA") ActNm = ActiveSheet.Name 'ActiveSheet.Name = InputBox("") Sheets(ActiveSheet.Name).Visible = True ActiveWorkbook.Sheets("Material_50").Visible = False Application.ScreenUpdating = True 'Make sure the name is valid On Error Resume Next 'Get the new name 'Keep asking for name if name is invalid Do userInput = InputBox("Vnesi ime MATERIALA novega lista.") ....... 'Insert the name of the new sheet If StrPtr(userInput) = 0 Then MsgBox "Stisnil si CANCEL- pobriši zavihek sam!!!" ....... 'push CANCEL - but you should delete the tab by yourself Application.DisplayAlerts = False Exit Sub Else If userInput = vbNullString Then MsgBox "Ne moreš nadaljevati brez vnesenega imena za ZALOGO!" ..... You cannot continue without insert new name of sheet Else ActiveSheet.Name = userInput 'MsgBox userInput & " entered." End If End If Loop Until userInput <> vbNullString Do Until Err.Number = 0 Err.Clear ActiveSheet.Name = InputBox("Poskusi ponovno!" _ ..... try again & vbCrLf & "Ime lahko že obstaja!" _ ..... name already exsist & vbCrLf & "Prosim vnesi ime MATERIALA NOVEGA LISTA!!!") .... please inesrt new name of heet Loop On Error GoTo 0 -
i found it on internet and created for my use... i will translate and attach here.. give me a few minuts
-
one more help i need:)
when i want add new sheet and deny action ( push CANCEL or X) i can¨t deny it.. how can fixed it
-
Carim tnx 100000000000time :)))))
you are the MAN:)
-
-
Attached is the modification you asked for ...
P.S. Already visited the Fantastic Lipica
NICE:) only Lipica or also other places
problem is same
-
you are the man Carim:)
but one more modification i need:)
when you remove sheets, it is posible that turn back table basics colors:)
ko odstraniš delovne liste, če se lahko vrne osnovna barva tabele.. v tem primeru plava in bela...
ps.. will you cam on holliday in slovenia...
because you already speak slo better than me:) -
Morning:)
i didn´t have problem with text.. i had problem with background color.. i need to show in cells background color:))
tran: nimam problemov glede teksta.. to se reši tako kot si ti... mene zanima kako barvo prenašat iz delovnega lista v tabelo in da ta barva tako kot tekst sledi imenu iz prve kolone
ps: vidim, da se želiš naučit slovenski jezik... prideš na počitnice CARIM:)
-
i need that vba code wich will do that automaticly