15. januar 2009 - 13:23Der er
6 kommentarer og 1 løsning
Makro der indsætter værdi i en celle
Jeg sidder og fumler lidt med en makro og er gået i stå. Jeg har brug for at kende den kommando der kan indsætte en værdi i en celle som den skal tage fra en bestemt placering i samme fil på et andet ark. Måske det er nemmere hvis jeg lige viser koden :
Public Sub Notaer()
'Dimensioner rækkevariable Dim lngRkStart As Long Dim lngRkSlut As Long Dim lngRkIndex As Long
'Hvilke rækker skal behandles? lngRkStart = InputBox("Indtast første rækkenummer") lngRkSlut = InputBox("Indtast sidste rækkenummer")
'HERUNDER SKAL ALT ROBOT-KODEN SKRIVES '=====================================
Dim i As Long Dim Funktion As String
Dim intColBestiller As Variant Dim intColKobSalg As Variant Dim intColValuta As Variant Dim intColBelob As Integer Dim intColTil As Variant Dim intColBetaling As Variant Dim intColReg As Integer Dim intColKonto As Integer Dim intColNote As Variant
'==================================================================== 'i gennemløber intervallet [Fra , Til] vha. for-løkken For i = lngRkStart To lngRkSlut 'For i = 2 To SlutRække
'Springer over hvis beløb er lig nul If Val(Cells(i, 5)) <> 0 Then
Hmmm....jkrons...tak for svar.....det driller stadig :-( Nu indsætter den værdierne 2 3 4 o.s.v. istedet for at indsætte de værdier der findes under de respektive kolonner der er repræsenteret af det definerede kolonnenummeret hvis du forstår ?
Er det sådan du mener?? ArkTil.Cells(i,intColBestiller).Value = ArkFra.Cells(i, intColBestiller).Value ArkTil.Cells(i,intColKobSalg).Value = ArkFra.Cells(i, intColKobSalg).Value
Hvis det er sådan, så kan det gøres nemmere end med 11-12 linier...
For iRow = lngRkStart To lngRkSlut For iCol = intColBestiller To intColRef If Not Val(ArkFra.Cells(iRow, iCol).Value) = 0 Then ArkTil.Cells(iRow, iCol).Value = ArkFra.Cells(iRow, iCol).Value End If Next iCol Next iRow
Mon jeg har forstået det rigtigt - ikke sikkert. Håber du kan fange min indgangsvinkel samt ArkTil og ArkFra
Jeg har en tabel i Ark1 som indeholder et antal rækker der hver repræsenterer en transaktion. Jeg ønsker nu at overføre udvalgte data fra disse rækker og danne notaer som udskrives herfra. Notaen ligger i Ark2.
Jeg tror jeg er ved at løse det, her er min makro :
Public Sub Notaer2()
'Dimensioner rækkevariable Dim lngRkStart As Long Dim lngRkSlut As Long Dim lngRkIndex As Long
'Hvilke rækker skal behandles? lngRkStart = InputBox("Indtast første rækkenummer") lngRkSlut = InputBox("Indtast sidste rækkenummer")
'HERUNDER SKAL ALT ROBOT-KODEN SKRIVES '=====================================
'Hvis robotten er nået så langt er den kørt igennem uden fejl
Cells(i, 13) = "OK"
'Udskriv '===================================================================== Application.Goto Reference:="KS" NOTA Application.Goto Reference:="VALUTABESTILLING" '=================================================================================================
NæsteRække: 'Skriv tid for opdatering Cells(i, 14) = Now End If Next i Exit Sub
'FEJLHÅNDTERING '================================================================================================= Fejl: 'Hvis der har været nogen form for fejl noteres der udover de enelte fejlmeddelser 'og en fejl i OK-kolonnen Cells(i, 13) = "Fejl" GoTo NæsteRække End Sub
jkrons > smid mig et svar Flemming > Tak for indlæg...men jeg er ikke skarp nok til at få din makro til at fungere hos mig, ærgerligt...for det ville være lækkert med en lille kort sag :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
