macro to goole script
$10-30 USD
Kiszállításkor fizetve
Hi, i want attached macro code, converted to google script code. Should be easy to do. And please bid only if i can manage it for the bidding price. thanks. The macro code is:
Attribute VB_Name = "Module1"
Sub CreateTable()
Attribute CreateTable.VB_ProcData.VB_Invoke_Func = "P\n14"
If Range("a1") <> "Group No." And Range("b1") <> "Entry Type" Then
MsgBox "Please select the data sheet before running the macro."
Exit Sub
End If
Dim mainWS As Worksheet
Dim datemin, datemax, currdate As Date
Dim kserv, lunch1, lunch2, totlunch, dinner As Long
Dim lastrow As Long
lastrow = Range("a1").End(xlDown).Row
Set mainWS = ActiveSheet
datemin = [login to view URL](Range("F:F"))
datemax = [login to view URL](Range("F:F"))
[login to view URL] = False
On Error Resume Next
Sheets("output").Delete
[login to view URL] = True
[login to view URL] = "Output"
Range("a1") = "Date"
Range("a2") = "KK Serv."
Range("a3") = "Lunch 1"
Range("a4") = "Lunch 2"
Range("a5") = "[login to view URL]"
Range("a6") = "Dinner"
i = 2
For datemin = datemin To datemax
Cells(1, i) = datemin
i = i + 1
Next
j = 2
For i = 2 To Range("a1").End(xlToRight).Column
currdate = Cells(1, i)
j = 2
Do While [login to view URL](j, 1) <> ""
If [login to view URL](j, 6) = currdate Then
If [login to view URL](j, 3) = 549 Or [login to view URL](j, 3) = 550 Then
kserv = kserv + [login to view URL](j, 9)
ElseIf [login to view URL](j, 3) > 709 And [login to view URL](j, 3) < 730 And [login to view URL](j, 7) > TimeSerial(9, 59, 59) And [login to view URL](j, 7) < TimeSerial(12, 15, 1) Then
lunch1 = lunch1 + [login to view URL](j, 9)
ElseIf [login to view URL](j, 3) > 709 And [login to view URL](j, 3) < 730 And [login to view URL](j, 7) > TimeSerial(12, 15, 59) And [login to view URL](j, 7) < TimeSerial(16, 0, 1) Then
lunch2 = lunch2 + [login to view URL](j, 9)
ElseIf [login to view URL](j, 3) > 829 And [login to view URL](j, 3) < 896 Then
dinner = dinner + [login to view URL](j, 9)
End If
End If
j = j + 1
Loop
Cells(2, i) = kserv
Cells(3, i) = lunch1
Cells(4, i) = lunch2
Cells(5, i) = lunch1 + lunch2
Cells(6, i) = dinner
kserv = 0
lunch1 = 0
lunch2 = 0
dinner = 0
Next
Range("b1:ba1").NumberFormat = "dd/mm/yyyy"
Range("b1:ba1").[login to view URL] = True
Range("a1").[login to view URL](xlEdgeBottom).LineStyle = xlContinuous
Range("a1").[login to view URL](xlEdgeTop).LineStyle = xlContinuous
Range("a1").[login to view URL](xlEdgeLeft).LineStyle = xlContinuous
Range("a1").[login to view URL](xlEdgeRight).LineStyle = xlContinuous
Range("a1").[login to view URL](xlInsideHorizontal).LineStyle = xlContinuous
Range("a1").[login to view URL](xlInsideVertical).LineStyle = xlContinuous
Range(Cells(2, 1), Cells(6, Range("a1").End(xlToRight).Column)).[login to view URL] = vbYellow
End Sub
Projektazonosító: #15033896
A projektről
13 szabadúszó tett átlagosan 60$ összegű árajánlatot erre a munkára
Greeting, i can deliver you the 100% results with in the timeliness. Please check the profile deliver almost 240 projects with 100% client satisfaction. Relevant Skills and Experience I have the 5 years of experienc Továbbiak
pls send me details ........................ Stay tuned, I'm still working on this proposal.
Hi there! I will be happy to help you with that simple one. We can convert this code into a Google Script code in one day. Relevant Skills and Experience Specialized in Google Apps Scripting. All of my reviews are re Továbbiak
I'm a professional software developer with a lot of experience in VBA and JavaScript. I can do this job with high quality. please contact me to discuss more. Relevant Skills and Experience VBA JavaScript Google Docs Továbbiak
I have many experiences in google sheet with Javascript I am a expert in data entry, data processing, word, word processing I'll serve for you with good speed and quality. Relevant Skills and Experience If you co Továbbiak
Dear Sir/Madam, I have high experience with Js and. Google docs API. I have big experience with macros as well. Price includes only coding.
Not so hard but prefer to have a sheet for developing and testing. Relevant Skills and Experience several project was one before Proposed Milestones $25 USD - convert vba to google script