Sign In
Create Account
Back to top |
Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
Excel - Macro VBA
1 votes
Last Updated: Dec 02 2020 19:13, Started by
razvansd
, Dec 01 2020 22:09
·
0
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
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
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2023 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.