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 |
Excel - Macro VBA
Last Updated: Dec 02 2020 19:13, Started by
razvansd
, Dec 01 2020 22:09
·
0
#1
Posted 01 December 2020 - 22:09
Salutare
Se da urmatoarea situatie de excel, poate cineva mai priceput poate sa ma ajute . -> 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
Edited by MarianG, 01 December 2020 - 22:42.
|
#2
Posted 01 December 2020 - 22:45
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
Posted 01 December 2020 - 22:57
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
Posted 01 December 2020 - 23:33
Am reusit, multumesc mult !
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. |
#5
Posted 02 December 2020 - 00:53
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
Posted 02 December 2020 - 19:13
A mers cu :
Worksheets("numele sheetului").Range("celula pe care o voiam sa se stearga").Value="" Exemplu. In caz ca cineva are vreodata nevoie => Worksheets("Input").Range("C2").Value="" + Worksheets("Input").Range("C4").Value="" + Worksheets("Input").Range("C6").Value="" Multumesc mult pt suport. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users