Hi Guys,
I have created the Wordle game in Excel. It's not exactly the same as the original one. But I tried my best not to lose the spirit of the game.
You are free to change the code to make it...
Type: Posts; User: Admin
Hi Guys,
I have created the Wordle game in Excel. It's not exactly the same as the original one. But I tried my best not to lose the spirit of the game.
You are free to change the code to make it...
try
For i = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(i).Range("H10")
Set xShape = Sheets(i).Shapes.AddPicture(xPath & xFiles(i - 1), True, True, xRg.Left, xRg.Top,...
Hi
try this
Sub InsertPic()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Hi
Welcome to board!
not sure, but does this make any good ?
Dim r As Range
Set sSelect = Selection.SpecialCells(xlCellTypeConstants)
In D2 and copied down,
=LEN(B2)>0
Now use;
=CONCATIFS(C2:C11,";",D2:D11,TRUE)
In the VBE window, Go to Insert > Module
Unfortunately, the current format doesn't help to create the pivot.
Where did you put the code? The code should go into a standard module.
If you layout the data in a structured format, then a Pivot table would do the trick for you.
Hi
You could try this UDF.
Use it as
=CONCATIFS($C$2:$C$50,", ",$A$2:$A$50,F$1)
or
That will be your unpivot column range which is D1:I1
HTH
The other link
https://www.mrexcel.com/forum/excel-questions/1034781-find-replace-text.html
Works only on ActiveSheet
may be..
With Sheet1
MsgBox .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(3)).Address
End With
You are welcome!
Dim TotHours As Double
Dim rngData As Range
Dim CutOff As Double
CutOff = 8
If Application.WorksheetFunction.Weekday(DTPicker1, 2) = 5...
Use this code. You don't need to create a sheet each time for calculation, instead use application.worksheetfunction.
Dim TotHours As Double
Dim rngData As Range
With...
keep 10 rows of data, zip the file and upload.
Hi Mnet,
Welcome to board !
Can you please attach the workbook ?
Cut down the data if it's huge in size.
See http://www.xl-central.com/blog.html
@ Rob,
Please use code tags while posting code. I have added the code tag for you this time.
try
Worksheets.Add before:=Worksheets("SpecificSheetName")
It's an elegant solution ! Usually we propose this way to handle 3d formulas.
you don't need to upload all the data. keep first few rows of data and delete rest. wanted to see the format of each sheet.
For English version, replace ; with ,
Hi Rob,
Welcome to board !
First question why you use different sheet for different month ? Don't you use a single sheet for all data by adding a column for month ? which will make your...
Hi Dave,
Please have a look at this http://www.xtremevbtalk.com/tutors-corner/168296-lotto-algorithms-permutations-combinations.html
Hi All,
A nice trick to display the progress on Application.StatusBar :)
Option Explicit
Sub ProgressBar()
Dim i As Long