excel vba - VBA- Sum values in Column B if name in column A is the same -


i try edit macro summing values in column b, doesnt work correctly:

here is, have:

option explicit  sub main()      collectarray "a", "d"      dosum "d", "e", "a", "b"  end sub   ' collect array specific column , print new 1 without duplicates ' params: '           fromcolumn - column need remove duplicates '           tocolumn - reprint array without duplicates sub collectarray(fromcolumn string, tocolumn string)      redim arr(0) string      dim long     = 1 range(fromcolumn & rows.count).end(xlup).row         arr(ubound(arr)) = range(fromcolumn & i)         redim preserve arr(ubound(arr) + 1)     next     redim preserve arr(ubound(arr) - 1)     removeduplicate arr     range(tocolumn & "1:" & tocolumn & range(tocolumn & rows.count).end(xlup).row).clearcontents     = lbound(arr) ubound(arr)         range(tocolumn & + 1) = arr(i)     next end sub   ' sums values 1 column against other column ' params: '           fromcolumn - column string match against '           tocolumn - sum printed '           originalcolumn - original column including duplicate '           valuecolumn - column values sum private sub dosum(fromcolumn string, tocolumn string, originalcolumn string, valuecolumn string)     range(tocolumn & "1:" & tocolumn & range(tocolumn & rows.count).end(xlup).row).clearcontents     dim long     = 1 range(fromcolumn & rows.count).end(xlup).row         range(tocolumn & i) = worksheetfunction.sumif(range(originalcolumn & ":" & originalcolumn), range(fromcolumn & i), range(valuecolumn & ":" & valuecolumn))     next end sub   private sub removeduplicate(byref stringarray() string)     dim lowbound$, upbound&, a&, b&, cur&, temparray() string     if (not stringarray) = true exit sub     lowbound = lbound(stringarray): upbound = ubound(stringarray)     redim temparray(lowbound upbound)     cur = lowbound: temparray(cur) = stringarray(lowbound)     = lowbound + 1 upbound         b = lowbound cur             if lenb(temparray(b)) = lenb(stringarray(a))                 if instrb(1, stringarray(a), temparray(b), vbbinarycompare) = 1 exit             end if         next b         if b > cur cur = b         temparray(cur) = stringarray(a)     next     redim preserve temparray(lowbound cur): stringarray = temparray end sub

macro copy names column (removes duplicates) column d, , values column b should sum according names column part removeduplicates doesnt work properly. can tell me/help me, can problem ? 

sub createsummary()     dim x long     dim dict object     set dict = createobject("scripting.dictionary")      x = 1 range("a" & rows.count).end(xlup).row         dict(cells(x, 1).value) = dict(cells(x, 1).value) + cells(x, 2).value     next      range("d1").resize(dict.count).value = application.transpose(dict.keys)     range("e1").resize(dict.count).value = application.transpose(dict.items)  end sub

-

Comments

Post a Comment

Popular posts from this blog

java - SSE Emitter : Manage timeouts and complete() -

i writing web app multiple listeners(evcentsource sse clients js) connected server . want store sse emitter per connected listener : can done in memory or other means assigning id each client able achieve far now question ; how send response/event specific client connected web app ? while doing sseemmiters stored either getting completed or timed out. how prevent ? how keep sseemmiter available open infinite time (till client closes) , send events selectively .
Read more

jquery - uncaught exception: DataTables Editor - remote hosting of code not allowed -

i'm trying implement crud operation using datatableseditor using datatables.but i'm getting error messages: 1)uncaught exception: datatables editor - remote hosting of code not allowed. please see http://editor.datatables.net details on how purchase editor license 2)typeerror: a.editor undefined 3) $.fn.datatable.editor not constructor" what reason? here configuration: <%@ page language="java" contenttype="text/html; charset=iso-8859-1" pageencoding="iso-8859-1"%> <!doctype html public "-//w3c//dtd html 4.01 transitional//en" "http://www.w3.org/tr/html4/loose.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1"> <title>insert title here</title> <link rel="stylesheet" type="text/css" href="//cdn.datatables.net/1.10.12/css/jquery.datatables.min.css"> <link re...
Read more

java - How to resolve error - package com.squareup.okhttp3 doesn't exist? -

i trying convert json java object use of gson in maven, following youtube video guidance - https://www.youtube.com/watch?v=vqgghm9pwe0 , theres error occurs when in main class error - package com.squareup.okhttp3 doesn't exist. code below: java package com.codebeasty.json; import com.squareup.okhttp3.okhttpclient; public class main { private static okhttpclient client = new okhttpclient(); public static void main (string [] args) { } } i put in dependency in pom.xml: <dependencies> <dependency> <groupid>com.squareup.okhttp3</groupid> <artifactid>okhttp</artifactid> <version>3.4.2</version> </dependency> <dependency> <groupid>com.google.code.gson</groupid> <artifactid>gson</artifactid> <version>2.8.0</version> </dependency> </dependencies> i dont understand why doesn't recognize com.squareup. there may need download? have downl...
Read more