Bifa calendar
Bifa calendar
Buna ziua,
exista posibilitatea ca dand click pe o celula se fie marcata color, sau cu un caracter tip bifa, iar acea cifra sa fie trecuta alaturat?
Multumesc, stima
exista posibilitatea ca dand click pe o celula se fie marcata color, sau cu un caracter tip bifa, iar acea cifra sa fie trecuta alaturat?
Multumesc, stima
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Bifa calendar
Buna ziua
Eu as incerca o alta varianta: scriere manuala a numerelor dorite in zona coloanelor B:G iar dincolo (in calendar) colorare prin formatare conditionata.
Chiar daca exista in cadrul macro evenimentul SelectionChange care ar permite atat colorarea automata la selectie cat si rularea unei subrutine de completare in zona B:G (si aici poate fi ceva problematic legat de cum anume sa aiba loc acea completare), mi se pare greu de folosit in conditiile date, mai ales daca veti selecta ceva din gresala.
IP
Eu as incerca o alta varianta: scriere manuala a numerelor dorite in zona coloanelor B:G iar dincolo (in calendar) colorare prin formatare conditionata.
Chiar daca exista in cadrul macro evenimentul SelectionChange care ar permite atat colorarea automata la selectie cat si rularea unei subrutine de completare in zona B:G (si aici poate fi ceva problematic legat de cum anume sa aiba loc acea completare), mi se pare greu de folosit in conditiile date, mai ales daca veti selecta ceva din gresala.
IP
Re: Bifa calendar
Salut,
as ramane la idea mea, uitati ce am mai gasit, am mai facut un pas,
in foaia V1 am facut ceva de genul , dai dublu click si ai o bulina neagra,
in foaia V2 mai interesant colorez celula
acum ar trebui sa vad cum iau de acolo valoarea celulei si sa o pun in zona
Multumesc, stima
as ramane la idea mea, uitati ce am mai gasit, am mai facut un pas,
in foaia V1 am facut ceva de genul , dai dublu click si ai o bulina neagra,
in foaia V2 mai interesant colorez celula
acum ar trebui sa vad cum iau de acolo valoarea celulei si sa o pun in zona
Multumesc, stima
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Bifa calendar
Salut,
Care e maximul de celule in care vrei sa iti apara numerele din calendar.
In fisier este rangeul B3:G3, e posibil sa vrei mai multe numere si daca da unde se vor pozitiona acele numere (dedesubt poate?)
In calendar sunt numere trecute de "mana"? sau sunt date ca rezultat al unor formule?
Care e maximul de celule in care vrei sa iti apara numerele din calendar.
In fisier este rangeul B3:G3, e posibil sa vrei mai multe numere si daca da unde se vor pozitiona acele numere (dedesubt poate?)
In calendar sunt numere trecute de "mana"? sau sunt date ca rezultat al unor formule?
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Bifa calendar
Salut,
6 numere
"calendarul" e scris manual, de mana
multumesc
6 numere
"calendarul" e scris manual, de mana
multumesc
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Bifa calendar
Daca dai dublu clic intro celula si constati ca ai gresit (totusi numarul a fost scris in una din cele 6 celule) vrei sa se sterga si acel numar din cele 6 celule? dupa ce anulezi numarul din calendar...
Datele din cele 6 celule vor fi puse in functie de ordinea selectarii.
Nu de alta dar nu vreau sa refac codul mereu.
Datele din cele 6 celule vor fi puse in functie de ordinea selectarii.
Nu de alta dar nu vreau sa refac codul mereu.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Bifa calendar
Buna,
Poate gasiti ceva inspiratie in fisierul atasat.
In foaia settings puteti introduce anul, luna, si cele (maxim) 6 zile pe care le doriti marcate in calendar.
Odata introdusa o data aceasta se marcheaza automat. Daca o stergeti din lista anulati marcajul. Nu prea inteleg logica unui "ckick". Poate ne oferti mai multe detalii.
Poate gasiti ceva inspiratie in fisierul atasat.
In foaia settings puteti introduce anul, luna, si cele (maxim) 6 zile pe care le doriti marcate in calendar.
Odata introdusa o data aceasta se marcheaza automat. Daca o stergeti din lista anulati marcajul. Nu prea inteleg logica unui "ckick". Poate ne oferti mai multe detalii.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: Bifa calendar
Salut,
@Indigo-ONE, ar fi perfect sa se stearga
Stima
@Indigo-ONE, ar fi perfect sa se stearga
Stima
-
- Mesaje: 433
- Membru din: Mar Dec 11, 2018 8:54 pm
Re: Bifa calendar
OK.
Pune codul urmator in foaia unde ai calendarul:
Sterge codurile pe care le mai ai in modulul foii.
Codul functioneaza astfel:
La fiecare dublu clic in calendar, va umple acea celula cu galben si va transfera cifra in rangeul dat B3:G3. Aici celula va fi colorata tot in galben.
Daca dai iar dublu clic intro celula (a calendarului) care are culoarea galbena, acea celula va reveni la culoarea initiala si numarul din B3:G3 se va sterge (inclusiv culoarea).
Daca alegi o celula care nu are numar in ea, codul nu va reactiona.
Daca vrei sa alegi mai mult de 6 numere, va aparea un mesaj care te va anunta ca 6 este numarul maxim de numere care se pot selecta.
Sper sa fie ce doresti.
Pune codul urmator in foaia unde ai calendarul:
Cod: Selectaţi tot
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ka As Range
Dim Ki As Range
Dim K As Long
If Not Intersect(Range("L3:R7"), Target) Is Nothing Then
Cancel = True
If Target.Value <> "" Then
If Target.Interior.Color = vbYellow Then
Set Ki = Range("B3:G3").Find(What:=Target.Value, LookAt:=xlWhole)
If Ki Is Nothing Then
MsgBox "Ceva e in neregula. Nu sunt date in Range B3:G3!", vbExclamation
Else
Do
Ki.Value = Ki.Offset(, 1).Value
Set Ki = Ki.Offset(, 1)
Loop Until Ki.Value = ""
For K = 7 To 2 Step -1
If Cells(3, K).Value = "" Then
Cells(3, K).Interior.ColorIndex = xlColorIndexNone
Else
Exit For
End If
Next K
End If
Target.Interior.ColorIndex = xlColorIndexNone
Else
Set Ka = Range("H3").End(xlToLeft).Offset(, 1)
If Ka.Column = 8 Then
MsgBox "Doar 6 numere poti selecta!", vbInformation
Else
Target.Interior.Color = vbYellow
Ka.Value = Target.Value
Ka.Interior.Color = vbYellow
End If
End If
End If
End If
End Sub
Codul functioneaza astfel:
La fiecare dublu clic in calendar, va umple acea celula cu galben si va transfera cifra in rangeul dat B3:G3. Aici celula va fi colorata tot in galben.
Daca dai iar dublu clic intro celula (a calendarului) care are culoarea galbena, acea celula va reveni la culoarea initiala si numarul din B3:G3 se va sterge (inclusiv culoarea).
Daca alegi o celula care nu are numar in ea, codul nu va reactiona.
Daca vrei sa alegi mai mult de 6 numere, va aparea un mesaj care te va anunta ca 6 este numarul maxim de numere care se pot selecta.
Sper sa fie ce doresti.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Bifa calendar
@ Indigo-ONE Multumesc mult
Va multumesc tuturor
e mai mult decat perfect
Stima
Va multumesc tuturor
e mai mult decat perfect
Stima