Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Scara lemn pe vanguri

Ce telefon sa-mi iau?

Cum circula banii intr-o economie...
 ortoped foisor contact-ruptura LIA

Gingia creste peste masea

Comutatoare si RCCB 18 mm

Despre setarile OBS Studio !
 Cum reacționezi ca tata cand...

Camera auto Zenfox T3 DUO

Identificare Jante

Amintiri din viitor: Blondele, te...
 Smart mobile keeps stopping/ smar...

Culoar de zbor Aeroportul Brasov ...

Intrebare program spion telefon a...

W10 busit
 

Excel - Macro VBA

* - - - - 1 votes
  • Please log in to reply
5 replies to this topic

#1
razvansd

razvansd

    Member

  • Grup: Members
  • Posts: 440
  • Înscris: 27.05.2015
Salutare la toti asimptomaticii.

Se da urmatoarea situatie de excel, poate cineva mai priceput poate sa ma ajute Posted Image.

->  sheet#1 = prima poza : asteptarea este ca acele date sa fie completate manual de diverse persoane (mai putin data/ ora)
-> se da click pe butonul de "Submit"
-> sheet#2 = a 2a poza : datele din sheet#1 ar trebui transferate aici dupa ce butonul de "Submit" este apasat.

Problema este ca primesc eroarea de tip " Method Range of object _Global failed".

In poza #3 se poate vedea codul. Ce imi scapa ?
Thanks

Attached Files

  • Attached File  1.PNG   40.95K   40 downloads
  • Attached File  2.PNG   6.57K   44 downloads
  • Attached File  3.PNG   32.36K   43 downloads

Edited by MarianG, 01 December 2020 - 22:42.
fara glume


#2
tehnics

tehnics

    acolo unde vara-i zi la miezul noptii

  • Grup: Senior Members
  • Posts: 28,684
  • Înscris: 01.11.2005
Deci acolo la material ai tip Label sau Text nu poti folosi Range. Acolo ai tipuri active, adica nu folosesti celulele excelului.
De exemplu acolo unde scrii materialul ai tipul Text.
Atunci poti scrie Text.tostring() sau Text.text

Edited by tehnics, 01 December 2020 - 22:46.


#3
uzzy86

uzzy86

    Junior Member

  • Grup: Members
  • Posts: 163
  • Înscris: 30.12.2006
Salut!

Foloseste un user form si pe butonul de submit pune macro:

Private Sub Submit_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet2")
Dim n As Long
n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A" & n + 1).Value = Me.TextBox1.Value   'pt material'
sh.Range("B" & n + 1).Value = Me.TextBox.Value    'pt operator'
sh.Range("C" & n + 1).Value = Me.TextBox.Value    'pt schimb'


End Sub

#4
razvansd

razvansd

    Member

  • Grup: Members
  • Posts: 440
  • Înscris: 27.05.2015
Am reusit, multumesc mult ! Posted Image

A doua intrebare ar fi cum as putea ca dupa ce datele sunt trimise in sheet2 prin apasarea butonului de "Submit", datele respective sa se stearga automat din sheet 1 ?
Astfel incat sa nu existe riscu sa se apese butonul de Submit de 5,6 ori la rand lucru ce ar duce la o varza totala a bazei de date din Sheet2. Posted Image

#5
SilvaDark

SilvaDark

    Junior Member

  • Grup: Members
  • Posts: 59
  • Înscris: 18.10.2008
Ar trebui sa adaugi la sfarsitul macroului, inainte de End Sub:
Me.TextBox.Value = ""
pentru fiecare dintre cele 3 casute de input (in loc de TextBox introduci numele date de tine controalelor).

#6
razvansd

razvansd

    Member

  • Grup: Members
  • Posts: 440
  • Înscris: 27.05.2015
A mers cu :
Worksheets("numele sheetului").Range("celula pe care o voiam sa se stearga").Value=""

Exemplu. In caz ca cineva are vreodata nevoie Posted Image
=>
Worksheets("Input").Range("C2").Value=""
+
Worksheets("Input").Range("C4").Value=""
+
Worksheets("Input").Range("C6").Value=""


Multumesc mult pt suport.

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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