About Retry button
10-16-2006, 10:21 PM #1 Registered User MsgBox Retry button Hello all,I'm trying to write a vba MsgBox that will allow the user to re-enter data into a cell if it was entered incorrectly. If the user enters data then submits it (by moving to another cell, hitting enter, etc.) and it is not typical data a MsgBox pops up. This box has two buttons 'Retry' and 'Cancel'.Below is a simplification of my code:Two questions:1. If the user clicks the 'Retry' button on the MsgBox, how can I go back to the calling cell and back into 'entry' mode. I.E. similar to what would happen if validation were on the cell.2. Is there a way I could get the data from the cell before the user entered/overwrote new data into it?Thanks to any with ideas Damask 10-16-2006, 10:37 PM #2 I not sure how to achieve what you want but this line undoes the last action of the user before the macro was run, so probably run the Undo then something like to get going again.hope this helps!regards,Simon 10-16-2006, 10:47 PM #3 Registered User Hi Simon,Application.Undo is quite handy (I didn't know about that function until now!).Unfortunately it doesn't solve my problem - anyone else got any ideas?Damask
Key features of the Retry button that are enabled through these drivers include:
- Retry Button Images - Free Download on Freepik
- Retry Button PNG Transparent Images Free
- Retry Game Buttons PNG Images - Pngtree
- 162 Free Retry Button Icons - IconScout
- Implementing Retry Button Functionality on MessageBox Issues
- Windows 11 Updates failed with a Retry button
- retry button - Deutsch bersetzung - Reverso Context
(credit to Yxhszz) or (original script is from Yxhszz) i Open source cuz for people who want to remake it and make better ]] local Players = game.Players local plr = Players.LocalPlayer local loop = true local retry = true _G.name = "sword" Mode = "enemy" Modes = {"enemy", "others"} local reach = 10 local auto=true local N = Instance.new("BindableFunction") local Window = library:Window("Sword Fight Aura") function findTool(String) local strl = String:lower() for i,v in pairs(plr.Backpack: GetChildren ()) do if v.Name:lower():match(strl) ~= nil then return v end end for i,v in pairs(plr.Character:GetChildren()) do if v.Name:lower():match(strl) ~= nil then return v end end end function getTool() return findTool(_G.name) end function KillAura() loop = true if Mode == "enemy" then repeat for i,v in pairs(game.Players:GetPlayers()) do pcall(function() if v ~= game.Players.LocalPlayer and v.TeamColor.Name ~= plr.TeamColor.Name and v.Character.Humanoid.Health ~= 0 and v.Character:FindFirstChildOfClass"ForceField" == nil then local Distance = (v.Character:FindFirstChildOfClass("Part").Position - game.Players.LocalPlayer.Character:FindFirstChildOfClass("Part").Position).magnitude if Distance for i = 1,25 do plr.Character.Humanoid.RootPart.CFrame = v.Character.Humanoid.RootPart.CFrame * CFrame.new(-1.6,0,1.8) local h = getTool() h.Parent = plr.Character h:Activate() if plr.Character:FindFirstChildOfClass"Tool".Name ~= getTool().Name then plr.Character:FindFirstChildOfClass"Humanoid": UnequipTools() end if v.Character.Humanoid.Health loop = false if retry == true then wait(1) KillAura() end end end end end end) end game:GetService("RunService").Heartbeat:Wait() until loop == false elseif Mode == "others" then repeat for i,v in pairs(game.Players:GetPlayers()) do pcall(function() if v ~= game.Players.LocalPlayer and v.Character.Humanoid.Health ~= 0 and v.Character:FindFirstChildOfClass"ForceField" == nil then local Distance = (v.Character:FindFirstChildOfClass("Part").Position - game.Players.LocalPlayer.Character:FindFirstChildOfClass("Part").Position).magnitude if Distance for i = 1,25 do plr.Character.Humanoid.RootPart.CFrame = v.Character.Humanoid.RootPart.CFrame * CFrame.new(-1.6,0,1.8) local h = getTool() h.Parent = plr.Character h:Activate() if plr.Character:FindFirstChildOfClass"Tool".Name ~= getTool().Name then plr.Character:FindFirstChildOfClass"Humanoid": UnequipTools() end if v.Character.Humanoid.Health loop = false if retry == true then wait(1) KillAura() end end end end end end) end game:GetService("RunService").Heartbeat:Wait() until loop == false end end local function notify1(Title, Text, con, Duration, Button, F) Title= Title or "Yxhszz" Text = Text or "Text" Duration = Duration or 5 Button= Button or "Button" F = F or function() end con = con or "rbxassetid://14260295451" N.OnInvoke = F game:GetService("StarterGui"):SetCore("SendNotification",{ Title = Title; Text = Text; Icon = con; Duration = Duration; Button1 = Button; Callback = N;}) end local function notify2(Title, Text, con, Duration, Button,B , F) Title= Title or "Yxhszz" Text = Text or "Text" Duration = Duration or 5 Button= Button or "Button" F = F or function() end con = con or "rbxassetid://14260295451" N.OnInvoke = F game:GetService("StarterGui"):SetCore("SendNotification",{ Title = Title; Text = Text; Icon = con; Duration = Duration; Button1 = Button; Button2 = B; Callback = N;}) end local function notify(Title, Text, con, Duration) Text = Text or "Yxhszz" Title= Title or "Yxhszz" con = con or "rbxassetid://14260295451" Duration = Duration or 5 game:GetService("StarterGui"):SetCore("SendNotification",{ Title = Title; Text = Text; Duration = Duration; Icon = con; }) end function GC(String) local clipBoard = setclipboard or toclipboard or set_clipboard or (Clipboard and Clipboard.set) if clipBoard then clipBoard(String) notify('Clipboard','Copied to clipboard') else notify('Clipboard',"Something went wrong 😕") end end local function modeDetector(b) if auto==true then if not game:GetService"Teams": FindFirstChildOfClass "Team" then Mode = "others" else Mode = "enemy" end else end end
