omzetten naar vba

[don42]

Beste helpers,

ik heb een macro opgenomen:

 Range("f6").Resize(110, 52) = "=IF(final!RC>"""",R5C,"""")"

dit werkt wel maar hou had ik dit moeten schrijven in VBA
nu krijg ik toch de formule in balk (wil graag enkel datums)

bvd
Don

 

[lam201]

zo:

Sub g()

Range("f6").Resize(110, 52) = "=IF(final!RC>"""",R5C,"""")"
Range("f6").Resize(110, 52).Value = Range("f6").Resize(110, 52).Value
End Sub

overigens, final!RC>"""" doet niks.

maak daar >0 van of <>""""

 

[don42]

Ik heb er nu dit van gemaakt:

Range("f6").Resize(110, 52).Value = Sheets("final").Range("f6").Resize(110, 52).Value

deze code maakt een copy van blad final

de formule die ik zie is

=ALS(final!F6>"";F$5;"")

resultaat een datum uit rij 5

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("f6").Resize(110, 52) = "=IF(final!RC>"""",R5C,"""")"
Application.CutCopyMode = False
Range("a6").Select
Application.ScreenUpdating = True
End Sub

 

[snb]

Lekker raden zo zonder voorbeeldbestand:

Sub M_snb()
  Cells(6, 6).Resize(110, 52).Value = Sheets("final").Cells(6, 6).Resize(110, 52).Value
End Sub

 

[don42]

Bedankt voor je hulp
ik zal straks een voorbeeld moeten maken want zo is het niet duidelijk (sorry)
probeer nog 1 keer zo:

ik heb in tabblad final in veel cellen een x staan
en wil graag in een ander tabblad in de cel waar x staat (zelfde cel dus) een datum
en die datum staat in rij 5 van elke kolom

dus staat in tabblad final in cel e7 een X
dan had ik graag in een ander tabblad in cel e7 de waarde van e5(daar staat de datum)

dus staat in tabblad final in cel AM40 een X
dan had ik graag in een ander tabblad in cel AM40 de waarde van AM5(daar staat de datum)

 

[snb]

Sub M_snb()
  sn=Sheets("final").Cells(5, 6).Resize(110, 52).Value

  for j=1 to ubound(sn)
    for jj=1 to ubound(sn,2)
      if sn(j,jj)="x" then sn(j,jj)=sn(5,jj)
    next
  next
  
  Cells(5, 6).Resize(110, 52).Value = sn
End Sub

 

[don42]

Helaas dit is ook niet de oplossing

Ik wil graag in de formule balk alleen de datum en niet de formule (tabblad datums)