macro to goole script

Cerrado Publicado hace 6 años Pagado a la entrega
Cerrado Pagado a la entrega

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

Excel Macros JavaScript

Nº del proyecto: #15033896

Sobre el proyecto

13 propuestas Proyecto remoto Activo hace 6 años

13 freelancers están ofertando un promedio de $60 por este trabajo

schoudhary1553

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 Más

$60 USD en 1 día
(24 comentarios)
5.2
nvbishr

pls send me details ........................ Stay tuned, I'm still working on this proposal.

$23 USD en 1 día
(22 comentarios)
5.0
mohamedkaram93

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 Más

$25 USD en 0 días
(29 comentarios)
5.1
ioanaprof

Dear Sir or Ms. I am John, pleased to meet you. All your requirements are achievable. Relevant Skills and Experience I'm well experienced in Google Apps Script and G Suite. Please, take a look at my portfolio in my p Más

$25 USD en 1 día
(16 comentarios)
4.7
stevobujica91

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 Más

$55 USD en 2 días
(10 comentarios)
4.1
BeautiCG

hello,sir. I'm a professional programmer with 6 years of experience. I've already done this kind of project before. If you award me, I'll implement all of your requirements in a short time. ProjectName:macro to goole Más

$25 USD en 1 día
(2 comentarios)
2.0
dolparymangch548

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 Más

$20 USD en 1 día
(0 comentarios)
0.0
JanLechowski

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.

$77 USD en 5 días
(0 comentarios)
2.6
ashatkovsky

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

$25 USD en 1 día
(1 comentario)
0.1