kunde

Vapaa kuvaus

Isaan Rules WFF CCC If you walked away smiling-then for you the price was right Keep Exceling Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who Lempikirjat: ohjelmointi... Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS En pidä: pakkanen ja loskakelit Ruoka & juoma: loimulohi ja valkkari Linkit: http://www.kundepuu.com, Khorat Koulutus: --- Ammatti: Tiede/teknologia Työskentelen: freelancer Ase tai siviilipalvelus: yliluutnantti Siviilisääty: Varattu Lapset: --- Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti

Aloituksia

7

Kommenttia

1374

  • Uusimmat aloitukset
  • Suosituimmat aloitukset
  • Uusimmat kommentit
  1. ei onnistu päivitys ilman koodia reaaliajassa. Tosin nyt kun on noita volatile funktioita niin aina kun tapahtuu muutos taulukossa tapahtuu uudelleenlaskenta ja näinollen päivitys. Ei siis muuta kuin minuutin välein paineleen F9 tai muuttamaan jotain solun arvoa tai...KOODAAMAAN
  2. Itse tekisin näin:
    oletetaan, että tulokset tallennetaan tulokset taulukkoon ja testi taulukossa tehdään laskelmia.
    nappiin koodi, joka testaa löytyykö tuote1 jo tulokset taulukosta esim. sarakkeesta A - jos ei ole tallentaa tiedot(löytyy useampikin mun postaus hae ja siirrä aiheesta, pikkusen hakua peliin...) ja jos oli niin ei tee mitään.
    samoin kopiointi ihan perusjuttu
    eli hakutesti ja sitten solujenkopionti- ei kummonen juttu ;-)
  3. ColumnWidths
    0 pt;0 pt;0 pt
  4. Sheets("data").Range("J105").End(xlDown).Offset(1, 0) = ComboBoxVaruste1.Column(2)
  5. riippuu missä muodossa skannattu tiedosto on. Oletetaan, että esim. kuvana.
    1. Lisää kuva Exceliin
    2. Muokkaa kuva sopivan kokoiseksi
    3. Lisää paikkoihin mihin haluat tekstejä tekstiruutuja ja muokkaile reunat piilot yms., sitten linkität ne soluihin mistä haluat hakea tiedon ko. ruutuun kirjoittamalla kaavariville kun tekstiruutu on valittuna esim. =Taul2!A1
    ja sitten eiku tulostamaan...
  6. taulukon moduuliin ...
    muuta alue ja salasana sopivaksi

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    ActiveSheet.Unprotect Password = "kunde"
    Range("A1:A10").Locked = False
    ActiveSheet.Protect Password = "kunde"
    End If
    End Sub
  7. taulukon moduuliin...

    Public vanha As Double
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("A1") = CDbl(Range("A1")) + CDbl(vanha)
    End If
    Application.EnableEvents = True
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    vanha = Range("A1")
    End Sub
  8. taulukon moduuliin...

    Public vanha As Double
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("A1") = Val(Range("A1")) + Val(vanha)
    End If
    Application.EnableEvents = True
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    vanha = Range("A1")
    End Sub
  9. mikset teet niinkuin neuvoin...
    voinhan koodia laittaaa niin ei tartte tuskailla...
  10. kontrollinnimi.Requery
    tai jotain tommosta se oli. Ei oo nyt tällä koneella Accesia, joten en voi tarkistaa
  11. toimisiko juttusi kommenttina. Lisäät kuvan kommenttiin ja muokkaat kokoa ja muotoja. Koodilla sen paikankin voi laittaa mihin haluaa...
    ja solujen kokoa muuttamalla kyllä kuvakin liikkuu mukana. Vaikea sanoa kun ei tarkkaan tiedä mitä haluat
  12. siis tiedot Sheet1:llä sarakkeissa A ja B. A sarakkeeseen merkitset X riville,jonka B sarakkeessa olevan tiedon haluat siirtää Sheet2:lle
    1. Lisää Sheet1 1 riville uusi rivi ja laita siihen otsikoiksi A1=Haku ja B1=Tieto
    2.Aktivoi Sheet2
    3. Kirjoita esim. soluihin E1= Haku, E2=X ja F1=Tieto
    4. Data/Filter/Advanced Filter lomakkeelle sitten seuraavat tiedot esim.
    Action kohdassa täppä Copy to another location
    List Range=Sheet1!$A$1:$B$100
    Criteria Range=$E$1:$F$2
    Copy to =$A$1

    siinä se.

    Muista, että suodatusta ei voi kopioida kuin aktiiviseeen taulukkoon, joten hakuehdot yms. on määriteltävä aktiivisessa taulukossa siis Sheet2, mutta itse hakutaulukko voi olla sitten missä tahansa taulukossa...

    ei ole tosta pahemmin mainintaa löytynyt ja vahingossahan se mullekin selvisi aikanaan kun koodissani oli bugi oikeassa paikassa :-)
  13. ihan Excelin omilla jutuillakin, jos mukana saa olla ne X:t. Jos et halua X:iä mukaan niin sitten pakko hoitaa koodilla. Mun postauksia löytyy aiheesta monia (kopioi/siirrä), kun hiukan hakua käyttää.
    No excelin omalla Advanced Filterillä onnistuu suoraan.
    Siitä toisesta taulukosta määrittelet hakuehtoalueen ja paikan mihin kopioidaan. Originellistä määrittelet suodatusalueen. Täppä Copy to Another location Action kohdassa ja OK
    Ei se ton kummosempi ole...
  14. samat ohjeet edelleen...
    eli poista taulukosta kaikkien solujen lukitukset ja tallenna työkirja. Muista suojata VBA koodi myös salasanalla.

    lisätty sarakkeet suojaukseen ja lukitusrivin alku nyt riviltä 6. Helppo lisätä tohon uusia lukittavia soluja

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim vika As Integer
    On Error Resume Next
    Sheets("Sheet1").Unprotect Password:="Kunde"

    Range("A1:R5").Locked = True
    Columns("B:B").Locked = True
    Columns("O:O").Locked = True
    Columns("P:P").Locked = True
    vika = Range("A65536").End(xlUp).Row
    If vika > 5 Then
    Range("A6:A" & vika).EntireRow.Locked = True
    End If
    Sheets("Sheet1").Protect Password:="Kunde"
    End Sub
  15. no nyt sitten yhdellä klikkauksella...

    litä makro nappiin
    moduuliin...

    Sub Näytä()
    Application.Dialogs(xlDialogDefineName).Show
    End Sub
  16. käytät enkku versiota koska se toimi tyhjällä työkirjalla...(sain tän toimimaan uudella tyhjällä excel-tiedostolla) ja vanhassa työkirjassasi ei ole Sheet2 nimistä taulukkoa, joten muuta koodissa se oikeaksi.

    Range("A65536")on A sarakkeen viimeinen solu versioissa ennen 2007. Siitä haetaan ylöspäin viimeinen solu, jossa tietoa ja siitä siirrytään offsetillä 1 solu alaspäin, johon tiedot kopioidaan
    @Kunde
  17. moduuliin...

    Sub Siirrä()
    Range("A1:B1").Copy Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
    End Sub
  18. poista ensiksi taulukosta (nyt Sheet1) kaikkien solujen lukitus ja suojaa VBA projekti salasanalla. Tallenna sitten työkirja normaalisti ja siinäpä se...

    oletuksena, että A sarakkeeseen tulee aina tieto, muuta sopivaksi

    ThisWorkbook moduuliin...

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim vika As Integer
    On Error Resume Next
    Sheets("Sheet1").Unprotect Password:="Kunde"
    vika = Range("A65536").End(xlUp).Row
    Range("A1:A" & vika).EntireRow.Locked = True
    Sheets("Sheet1").Protect Password:="Kunde"
    End Sub
  19. ei voi tehdä pelkillä kaavoilla, joten on käytettävä koodia...
    koodi toimii siten, että kun taulukko1:ssä joku tieto muuttuu tarkistetaan löytyykö TRUE. Jos löytyi piilotetaan sarakkeet, muuten poistetaan piilotus.
    pikkumuutoksilla voi esim. tyhjentää solujen arvot
  20. muuttele alueita sopivaksi

    taulukon moduuliin

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    HaeJaPiilota
    End Sub

    moduuliin...

    Function HaeJaPiilota()
    Dim solu As Range
    With Sheets("Sheet1").Cells
    Set solu = .Find( _
    What:=True, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, _
    MatchCase:=False, _
    SearchFormat:=False)
    End With


    If Not solu Is Nothing Then
    Sheets("Sheet2").Columns("F:G").EntireColumn.Hidden = True
    Else
    Sheets("Sheet2").Columns("F:G").EntireColumn.Hidden = False
    End If

    End Function
    21. 54 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt