Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Constructie parapet

La mulți ani @EmyBoss7!

La mulți ani @Gif2D!

Ce fel de conexiune la internet a...
 Operatori telefonie mobila, ț...

echivalente utilaje procesare suc...

mouse gesture software

Service Pompa centrala Vaillant -...
 Comanda platita și nelivrata

DJI Spark - Upgrade baterie

Nu mai creste numarul de kilometri

Focus Sat - baza de date piratata
 Masina foarte ieftina 4x4

Problema ciudata, BMW e46 316i

Dacia Logan 3 - Conectare la Waze

Pilonul II de pensii - mostenire ...
 

VBA date sum

- - - - -
  • Please log in to reply
4 replies to this topic

#1
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Am o problema la acest cod. imi da eroarea : Type mismatch (Error 13).Procedura ar trebui sa imi faca suma (date- a timpului) intre valorile "vb" din coloana C.


Sub Interval()
Dim LastRow As Long
Dim temp As Variant
Dim i As Long
Dim s As Variant
LastRow = Range("C" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
temp = 0
    If Range("C" & i).Value <> "vb" And Range("C" & i + 1).Value <> 0 Then
    temp = Range("A" & i + 1).Value - Range("A" & i).Value
    s = temp + s
    If Range("C" & i + 1).Value = "vb" Then
    Range("E" & i).Value = s
    End If
    Else: s = 0
    End If
Next i
    End Sub

01.11.2013 00:00     54,880 54,9 01.11.2013 01:00     49,721 vb 01.11.2013 02:00   52,191 52,2 01.11.2013 03:00     49,686 vb 01.11.2013 04:00 50,247 vb 01.11.2013 05:00 52,359 52,4 01.11.2013 06:00   48,997 49,0 01.11.2013 07:00 52,305 52,3 01.11.2013 08:00    50,112 vb 01.11.2013 09:00 49,997 vb

#2
danvlas

danvlas

    Guru Member

  • Grup: Senior Members
  • Posts: 11,118
  • Înscris: 04.06.2009
Pune un breakpoint pe:
LastRow = Range("C" & Rows.Count).End(xlUp).Row
Pe urma mergi pas cu pas si inspectezi valorile variabilelor. Una dintre ele nu este ceea ce pare a fi.
Nu cumva in randul 1 ai numele coloanelor si A1 e un text in loc de data?

#3
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Ba da am numele pe primul row A1 B1 C1. Cum bun breakpoint?

Am pus breakpoint pe linia respectiva imi da acelasi lucru.!

Edited by tzuny, 17 December 2013 - 11:51.


#4
danvlas

danvlas

    Guru Member

  • Grup: Senior Members
  • Posts: 11,118
  • Înscris: 04.06.2009
Pai nu mai merge For i = 1 To LastRow

, pentru ca in linia
temp = Range("A" & i + 1).Value - Range("A" & i).Value

incerci sa scazi denumirea coloanei A (aflata in A1)  din valoarea gasita in casuta A2


Probabil trebuie
For i = 2 To LastRow

#5
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Da asa e trebuia sa incep de la 2. Am fost incercata inainte dar nu i-am dat stop la compilare doar ii dadeam |> (play). mersi mult.!

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate