method

Option Explicit Dim wb As Workbook Dim ws As Worksheet Dim ws2 As Worksheet Dim rng As Range Dim r As Long Dim i As Long Dim er As Long Dim c As Range Dim sht As Object Dim wb2 As Workbook Dim fname As String Dim fpath As String Sub printshts() Set wb = ThisWorkbook Set ws =...

Hi, I have 2 scenarios where: 1. I have an integrated VBA form where values are input manually in a textbox and I get results outputted successfully. I was able to find an i.e. =embed((m1r1) command in the textbox but can't seem to access it again. The first sheet has code like this...

Morning all Using what I have learned, today I managed to copy a range of one sheet to a new sheet preserving formatting using the paste special method. This sheet is then copied to a new workbook that opens, saves and closes using the below code. This method although very simple does not seem...

Afternoon guys, I'm trying to find an efficient method to add a hyperlink to a range of cells but what I have so far keeps generating an 'Out of memory' message. The code itself runs fine, but once it's complete I get the message. This is what I have so far: LastImportRow =...

Hi folks, can anyone tell me why this works every alternate time it's run? Run it and it works fine. Run it again "Paste method of Worksheet class failed" Run it again it works fine. Run it again "Paste method of Worksheet class failed" etc..... Thanks. Sub CopyRows() Dim RowNum As Integer Dim...

Hello, I have data in Sheet1 that I'd like to copy into Sheet2 based on the header. I'd like to create some kind of text array that I can update in the code to include new columns if they become relevant. I'd like the relevant headers array to be something like sWords = {"Date", "Qty"...

I'm not too familiar with the Find method as I've always used For loops, which take way too much time. What I'm trying to do is go down a list of over 400,000 values in four columns and then take three of those values to determine where in a matrix the fourth value should be placed. For...

Can you use the range.find method to find the lowest row that the contents of a text box have expanded down to cover? For instance, if I have a regular text box with resize shape to fit text selected. I put the textbox in row 2, type "a" + hit enter, type "a" + hit enter, type "a" + hit enter...

Hi, I am executing a coding using sendkeys method. I wouldnt like to show the pages in the internet that I am using until the code delivers the resultant. The code below opens the google translator and write something, then it plays the audio from google translator audio play. How to hide the...

https://1drv.ms/x/s!AvjBsEPEq12ngUI4aV0PG-l-4gVM?e=pByejI How do I convert the data in A1:B7 to the output in rows 12 and below (happy to use any method, pivot tables, power query etc) (Purpose is so that I can do YTD calculations using the output)

I am running a macro that saves a certain cell data to a property in sharepoint metadata. It works great. But, there's always a but, there are times that the string has a comma, then an intentional space at the end. When that is the case, I receive the following error: "method value of object...

Hi, In a module, I have the following: IF Sheet4.Range("TheList_CountBlanks").Value > 0 Then Msgbox "Helpful message." Exit Sub End If That range name uses the function COUNTBLANK on a simple range and is successfully used in formulas. But that code keeps blowing up with that error. What...

Greetings, I recently lost a bunch of macros to a PERSONAL file saved in the binary extension format (users caution/beware!) and am having to rebuild several macros. I am running into a method range of object global failed error including the following lines of code. The macro to which these...

Greetings, I am running into a Method 'Range' of object'_Global' failed error in my macro below Dim AA as String: AA = ActiveSheet.Name ActiveSheet.Activate Range("A4:K300").Select ActiveSheet.Shapes.AddChart2(227,xlLine).Select ActiveChart.SetSourceData Source:=Range("AA!$A$4:$K$300")...

I keep getting Run-time error '-2147467259 (80004005)': Method 'MailEnvelope' of object '_Worksheet' failed when trying to run the a batch file with this script wscript.exe "U:\Programming\Scripts\VBS Scripts\SendEmails.vbs" SendEmail.vbs Option Explicit Sub ExcelMacroExample() Dim xlApp...

Does anybody know if it's faster to loop through a column of data or use the Find method to look for a particular value?

Hi, I'm trying to set up an advanced filter that updates automatically and here's my code: Sub advancedfilter() Sheets("Sheet1").Range("A9:N151").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("K1:K2"), _ CopyToRange:=Sheets("Sheet2").Range("A8:N8") _...

Does anyone know if it is possible to prevent users from clicking on File -> Properties-> Advanced Properties? I have written code to hide named ranges, so don't want them "revealed" via the above method. Thanks

Hello I have a dynamic sheet that I am working on that requires a drop down list for multiple cells. I have a table for each drop down list to make the main list searchable as demonstrated here https://www.extendoffice.com/documents/excel/2439-excel-drop-down-list-search.html. The problem is...

I must compile over 60 multipage paper surveys. The 1st question has 20 possible responses and the users marked all that applied. The easiest method I can come up with is to "x" the appropriate box and excel replace the "x" with the column title. But I can't get it to work. Can you suggest a...