imam težavo z izvedbo posnetega makroja. Ko makro snemam se mi posebno lepljenje z množenjem z ena izvede. S tem se mi zapisani datumi spremenijo v številke. Ko to isto posneto kodo izvedem z makrojem se ne zgodi nič. Zapise datumov imam v celicah AA in AB. Poizkušal sem že vse, a vedno ko uporabim v makru enega od operatorjev (dodaj (Add), pomnoži (Multiply) se v izvedbi makroja ne izvede nič. Če zadevo izpeljem ročno se množenje ali dodajanje izvede. Kaj delam narobe oz. kje je finta?
ne z nastavitvami se ne igram. Ko makro snemam se lepljenje z množenjem izvede. Potem taisti makro zaženem pa se množenje(Operation:=xlMultiply) ne izvede.
Opazil sem, da je isto, če v prazno celico z makrojem in funkcijo PasteSpecial dodam (Operation:=xlAdd) številčni zapis, ki je oblikovan kot besedilo. Tudi tu se kopiranje preko makroja ne izvede.
Makro se izvede samo, če ne uporabim nobene računske operacije (Operation:=xlNone).
Ker pa je moj cilj, da tekstovne zapise datumov in številk spremenim v številčne zapise mi lepljenje z Operation:=xlNone ne koristi.
Kot sem vam napisal že v prejšnjem odgovoru. Vse deluje tako kot mora in tudi makro deluje. Če vam kaj ne deluje potem je problem v vaši datoteki.
Odprite novo Excelovo datoteko, vanjo vnesite datume v celice AA6:ABxx in izvedite makro, ki sem vam ga poslal. Vsi datumi bodo predstavljeni kot številke.
Sprememba datuma v število se izvede če excel prepozan da jezapisan datum desna poravnava v celici.
Ker pa imam jaz leve poravnave zapisa datuma, torej zapis je teks, se množenje z uporabo makroja ne izvede, ročno brez uporabe makroja pa se množenje izvede.
Poravnava nima zveze z vsebino celice. Če je v celici datum je v njej datum in Excel ga vedno obravnava kot številko. Če torej želite samo "pretvoriti" obstoječi datum v številko potem je dovolj, da samo spremenite obliko celice. To je vse! Samo oblikujte celico ko številko.
Če pa v celicah nimate datumov temveč besedila, potem pa morate najprej besedilo pretvoriti v datum in potem datum v številko oz. kot sem že razložil je pretvorba teksta v datum že praktično pretvorba v številko.
Sub Pretvori()
Sheets("SAP_data").Select
Range("AA6:AB6").Select
Range(Selection, Selection.End(xlDown)).Select
Dim cell
For Each cell In Selection
cell.Value = CLng(cell.Value)
Next
Selection.NumberFormat = "0"
End Sub