vba

This sub procedure works with two variant arrays. Option Explicit Sub Macro3() Dim i As Long, j As Long, nr As Long Dim tmp As Variant, arr As Variant, hdr As Variant, vals As Variant With Worksheets(“sheet4”) tmp = .Cells(1, “A”).CurrentRegion ReDim vals(LBound(tmp, 1) To UBound(tmp, 1), LBound(tmp, 2) To UBound(tmp, 2)) nr = UBound(tmp, … Read more

I tried to always use an autofilter to find the empty cells before removing them but I’m stuck with it . instead i used SpecialCells function Since i want to delete the Empty cells. So it Works but if I want to delete other celles dipending other special criteria than blank or somting that is … Read more

Try this code below : Sub sumTotal() ‘dim array to store unique names Dim uniqueArray As Variant ‘Sheets(your chosen sheet) With Sheets(1) ‘find last cell with value in A Set last = .Range(“A:A”).Find(“*”, Cells(1, 1), searchdirection:=xlPrevious) ‘for each cell in column to last value found For n = 1 To last.Row ‘if name isnt in … Read more

Change: MsgBox strOutput, “Final Salary” To: MsgBox strOutput, vbOKOnly, “Final Salary” Or: MsgBox Prompt:=strOutput, Title:=”Final Salary” You are trying to put a string in where a button type is supposed to be. 1 solved Tax calculation in vba, run type error ’13’ type mismatch [closed]

I understood your goal as: single chart per sheet that exists in the All Data list Your code was creating (as @vba4all suggested) too many charts. I added: sheetsHandled as Collection to hold the list of sheets that already got their charts. sheetName to hold the name of the sheet used many times in code. … Read more

Try this code Sub Loop_Through_Text_Files_Count_Lines() Dim fso As Object Dim pth As Object Dim strFolder As String Dim strFile As String Dim r As Long With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strFolder = .SelectedItems(1) & “\” Else Exit Sub End With Set fso = CreateObject(“Scripting.FileSystemObject”) strFile = Dir(strFolder & “*.txt”) Do While strFile <> “” r … Read more

In C2 enter: =INDEX($A$2:$A$99,ROUNDUP(ROWS($1:1)/3,0)) & “_” & INDEX($B$2:$B$33,MOD(ROWS($1:1)-1,3)+1) and copy downward: NOTE: The number 3 in the formula above is there because there are 3 items in column B To “generalize” the formula replace: 3 with: (COUNTA($B$2:$B$99)) solved How to concatenate values from one column with each vales from second column? [closed]

You’ve literally not provided any code that you’ve attempted to use to do this, more people would gladly help if you would have at least attempted to code it… Nonetheless, you did not provide your sheet names, here is some code you can put to the test. Sub CopyValue Dim Wb1 As Workbook, wb2 As … Read more