Athe miniblogs

http://www.homeandlearn.org/


Nez, lasi.

Jau 30 min meklēju, nespēju atrast. tātad ir combobox (activex control), kuram vajag būt dinamiskam saturam, kas saturētu gudrās tabulas datus no cita sheeta.

saprotu, ka caur properties aizpildot pareizi listfill range var panākt to, ka atspoguļo gudrās tabulas kolonas datus, bet nevaru atrast kā. tagad varu tikai norādīt fiksētu range, piemēram, A2:A15, bet ja tiek ievietoti jauni dati, tad manuāli pašam jāupdeito. :/

Un varbūt kāds var pateikt kāpēc šis macros man neiet? :/

Private Sub Apstiprinasana_Click()

nrow = Application.CountA(Range("a3:a1000"))
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 1) = Cells(8, 4)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 2) = Cells(11, 4)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 3) = Cells(14, 4)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 4) = Cells(17, 4)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 5) = Cells(23, 4)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 6) = Cells(21, 5)
ThisWorkbook.Sheets("Dati").Cells(3 + nrow, 7) = "wtf"

End Sub

teorētiski viņš ar counta izskaita, ka pirmo reizi ievadot datus nav ievadīti dati, tāpēc raksta informāciju šūnās 3,1 3,2 u.t.t

pirmo rindiņu ievada kā vajag, bet pamainot datus viņš pārraksta pāri pirmajai rindiņai, lai gan izmēģinot counta taja pašā lapā viņš parāda 1 un vajadzētu rakstīties rindiņu zemāk. gudrā tabula btw