sheetsdata

Dear member, I try to make key search then get from 2 tables in "data entry" in to listbox as pix below Sorry I don't know how to show my pix here https://drive.google.com/file/d/1pnGzR1oUdX1KvCq_yUxBJrTC2jKnmtXS/view?usp=sharing It work perfect for me 1 search but I do the same 100 times for...

This is the code:Sub Workbook_Save(Path, Workbook_Name, _ Optional File_Format As XlFileFormat = xlOpenXMLWorkbookMacroEnabled) ' Save the workbook to the indicated file. If Right(Path, 1) <> "\" Then Path = Path & "\" FileName = Path & Workbook_Name...

Hi, I have some code below. it works up to the line calculate cost where it just returns the value from the first if statement. Please help Sub data_sorting() Dim Bcell As Range Dim NextRow Dim I As Integer WS_Count = ActiveWorkbook.Worksheets.Count 'Jan...

I need help creating a control button on my worksheet named 'Data Validation'. That will open a Userform named 'AdjustResetButtonForm' containing the follow code: TextBox1.Value = Sheets("Data Validation").Range("X3").Value TextBox2.Value = Sheets("Data Validation").Range("X4").Value...

I did a transfer using VBA. I am having trouble now filtering the data and sorting it. I used the following in VBA: Sub Copy() Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("A5") Sheets("Data Entry").Range("A5:A654").Copy Sheets("Try1").Range("D5") Sheets("Data...

Hello all, Looking for help to add a userform pop-up status indicator My current code that runs is below and I would like a user form to pop up and actively tell me the % complete % complete is found by simple division = count of non empty cells in column Q / count of non empty cells in...

Every time I run my macro, it takes about 1 min to execute. How can I fix this? Sub Button1_Click()Dim myRange As Range Set myRange = ThisWorkbook.Worksheets("Data Entry").Range("Data") Dim lastrow As Long Dim whichsheet As String whichsheet = InputBox("In which sheet do you wish to enter...

Hello All, I’m having a few issues with the Code: Dim sht As Worksheet Dim ASY As Worksheet Dim DATA As Worksheet Set DATA = Sheets("DATA") DATA.Copy Selection.PasteSpecial Paste:=xlPasteValues ' After:=DATA Columns("N:N").Select Selection.AutoFilter...

I have written this over and over again. Its takes 30 seconds. I am a novice doing this a few months. I should be defining...tried that but could not get this to speed up. It works but looks embarrassing, I am aware. After a couple of days of trying to speed it up, I am turning to the Guru's...

Hi everyone I've created a button (with a VBA script behind it) to update all worksheets in my spreadsheet. The problems I'm having are as follows: 1. Even though I'm asking the script to take me back to the "DONUT VIEW" sheet it isn't. It does briefly but then seems to run through the entire...

Here is a code that gets a formulated line from another sheet, inserts and then takes data from another sheet to transpose it. I wanted to add to this code, but if the number entered in E5 already exists, I wanted a message to pop ups and say, "Job already exists" and they click ok. myabe you...

Hi All, This piece of code is throwing an error 1004 when run on an Excel for Mac spreadsheet on the second last line where it pastes the copied cell formula. This works perfectly on Windows PC. Any help appreciated. thanks Ryan Dim Max, c, StartCol as Integer Dim rng as Range c =...

Sub Clear_Sheet() Application.ScreenUpdating = False Dim Msg As String, Ans As Variant Msg = "Are you sure you want to clear all data in 'Data Sheet'" Ans = MsgBox(Msg, vbYesNo) Select Case Ans Case vbYes Sheets("Data...

Hi guys, I set a button on another sheet where I wanna use my code, However this code does not work when the sheet is hided. Can someone tell me why? Sub Copydata() Dim iLastRow As Long ActiveWorkbook.Sheets("Clean1").Select Cells.ClearContents Sheets("Data Dump to be...

Hi all, I have the following Macro but want to clean it up, Essentially it inputs a cycle step Number on one sheet then copies the values in a named range and pastes them into a another sheet by selecting a named range. Any help is much appreciated. The code Module is in the following...

Here is the code I have, but it is not working. Private Sub CommandButton1_Click() Dim emptyRow As Long 'Activate Data Request Worksheet Sheets("Request Data").Activate 'Determine emptyRow emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 'Transfer information Sheets("Data...

I am trying to copy a range from one sheet and paste it at the next available row on another sheet. My code is as follows. Sub Archive() Sheets("Data Entry").Select Range("A3:AC31").Select Selection.Copy Sheets("Data Archive").Select Range("A" & Rows.Count).End(xlUp).Offset (1)...

Hi so I run this macro in my workbook now, but I need to change this now to look into a different workbook called "Time" sheet name --->Sheets("Name Correction"). I need to add to all of these below to look at this sheet name but in a different book called Time--> Sheets("Name Correction"). Any...