Hi Team,
Missing Database get added and restart Macro
-
Rmrekoj -
February 16, 2019 at 10:23 AM -
Thread is marked as Resolved.
-
-
-
[quote='Rmrekoj','http://www.ozgrid.com/forum/index.php?thread/&postID=1214999#post1214999']Hi Team,
I am working on a query and require your help to get full on.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/http://www.ozgrid.com%5c/forum%5C/core%…C%22%7D%5B/IMG2]
above is the data which name "m" is missing in Model data base which need to be added by inputbox and restart the macro to get actual result.
Code
Display MoreOption Compare Text Sub iui() Dim x 'find last row LastRow = Range("A1").CurrentRegion.Rows.Count lastrow1 = Range("F1").CurrentRegion.Rows.Count ' get database into array " I have learnt by [URL="https://www.ozgrid.com/forum/member/275839-graha_karya"][B][U][COLOR=#0066CC]graha_karya[/COLOR][/U][/B][/URL] ... sir" With ActiveSheet x = Range("D2:E" & lastrow1) End With For Each c In Range("B2:B" & LastRow) If c.Value Like x(1, 1) Then i1 = x(1, 2) + i1 ElseIf c.Value Like x(2, 1) Or c.Value Like x(3, 1) Then i2 = x(2, 2) + i2 ElseIf c.Value Like x(4, 1) Then i3 = x(4, 2) + i3 ElseIf c.Value Like x(5, 1) Then i4 = x(5, 2) + i4 ElseIf c.Value Like x(6, 1) Or c.Value Like x(7, 1) Then i5 = x(6, 2) + i5 Else i6 = InputBox("Capacity of" & c.Value, c.Value, 1) Range("M" & lastrow1 + 1) = c.Value Range("N" & lastrow1 + 1) = i6 End If Next MsgBox i1 + i2 + i3 + i4 + i5 End Sub
-
Sorry for the I dnt know how to delete instead of edit this
-
[quote='Rmrekoj','http://www.ozgrid.com/forum/index.php?thread/&postID=1214999#post1214999']Hi Team,
I am working on a query and require your help to get full on.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/http://www.ozgrid.com%5c/forum%5C/core%…C%22%7D%5B/IMG2]
above is the data which name "m" is missing in Model data base which need to be added by inputbox and restart the macro to get actual result.
Code
Display MoreOption Compare Text Sub iui() Dim x 'find last row LastRow = Range("A1").CurrentRegion.Rows.Count lastrow1 = Range("F1").CurrentRegion.Rows.Count ' get database into array " I have learnt by [URL="https://www.ozgrid.com/forum/member/275839-graha_karya"][B][U][COLOR=#0066CC]graha_karya[/COLOR][/U][/B][/URL] ... sir" With ActiveSheet x = Range("D2:E" & lastrow1) End With For Each c In Range("B2:B" & LastRow) If c.Value Like x(1, 1) Then i1 = x(1, 2) + i1 ElseIf c.Value Like x(2, 1) Or c.Value Like x(3, 1) Then i2 = x(2, 2) + i2 ElseIf c.Value Like x(4, 1) Then i3 = x(4, 2) + i3 ElseIf c.Value Like x(5, 1) Then i4 = x(5, 2) + i4 ElseIf c.Value Like x(6, 1) Or c.Value Like x(7, 1) Then i5 = x(6, 2) + i5 Else i6 = InputBox("Capacity of" & c.Value, c.Value, 1) Range("M" & lastrow1 + 1) = c.Value Range("N" & lastrow1 + 1) = i6 End If Next MsgBox i1 + i2 + i3 + i4 + i5 End Sub
Hi respected Sir, please help
-
Hi Sir plz do me a solution
-
-
hi team
-
Hi knock knock anyone is there?
-
Hello Sir please do me a favor
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!