Sub M_snb()
sn = Split("_" & Join([transpose(B6:B106)], "|_"), "|")
ReDim sp(UBound(sn), 26)
For j = 65 To 90
st = Filter(sn, "_" & Chr(j))
For jj = 0 To UBound(st)
...
Type: Posts; User: snb
Sub M_snb()
sn = Split("_" & Join([transpose(B6:B106)], "|_"), "|")
ReDim sp(UBound(sn), 26)
For j = 65 To 90
st = Filter(sn, "_" & Chr(j))
For jj = 0 To UBound(st)
...
I'd use:
Sub M_snb()
sn = Sheet1.Cells(1).CurrentRegion
c01 = "1"
For j = 2 To UBound(sn)
sn(j, 3) = Replace(sn(j, 3), ",", ";")
For Each it In...
If you could install Excel 2010 you were also able to install Outlook.
For other methods see: http://www.snb-vba.eu/VBA_Excelgegevens_mailen_en.html
@Doc:
See http://www.snb-vba.eu/VBA_Outlook_external_en.html#L_4.1
the tiniest 'micro': hire a profi.
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
I don't like exclamation marks.
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg.9h740K6COOA9iHOYYpaAbC...
Weekday is a regular VBA-function
instead of
If Application.WorksheetFunction.Weekday(DTPicker1, 2) = 5 Then
use
If Weekday(DTPicker1, 2) = 5 Then
Don't split data into separate worksheets.
Use an intelligent table and a pivottable instead.
=TEXT(RIGHT("00"&A2;8);"00\/00\/0000")
http://www.snb-vba.eu/VBA_Dictionary_en.html
http://www.snb-vba.eu/VBA_Arrays_en.html
http://www.snb-vba.eu/VBA_Collection_en.html
http://www.snb-vba.eu/VBA_Arraylist_en.html...
In that case you better shouldn't use Excel at all.
See your other thread: http://www.excelfox.com/forum/showthread.php/2198-How-can-you-convert-this-VBA-with-use-Scripting-Dictionary-so-it-becomes-fast?p=10334&viewfull=1#post10334
Are you familiar with pivottables ?
A querytable can be created without VBA.
What did you try ?
In that case you have 5 variables in combinations of 4 elements.
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA...
You wrote:
I would appreciate any assistance, I'm not an export, but can f................
I prefer import. :)
or
Sub M_snb()
sn=cells(1).currentregion
for j=2 to ubound(sn)
sn(j,1)=sn(j-1,1)
sn((j,2)=sn(j-1,2) & " " & sn(j,2)
sn((j-1,1)=""
Sub M_snb()
ActiveSheet.Name = "snb " & Format(Application.Min(Columns(3)), "yy-") & Format(Application.Max(Columns(3)), "yy")
End Sub
In that case I'd use VBA:
[A1:A20]=[A1:A20/100]
try percentage
If it's urgent, if it's crucial don't rely on a forum of volunteers: act professionally.
In that case: hire a software firm,.
Nur Paulaner:)