Formül Değerini Kopyalama

[cember68]

Set ds = Sheets("2")

stFnd = ds.Range("AT430").Value

With ds
Set rFndCell = .Range("A2:A3002").Find(stFnd, LookIn:=xlValues)
If Not rFndCell Is Nothing Then
fRow = rFndCell.Row


ds.Range("AT431").COPY ds.Cells(fRow, 40)
ds.Range("AT432").COPY ds.Cells(fRow, 41)
ds.Range("AT433").COPY ds.Cells(fRow, 42)

Application.CutCopyMode = False
Else 'Can't find the item
MsgBox "Bulunamadı"
End If
End With




Herkese Merhaba. Değişken AT431,432,433 hücreleri başka bir sayfadan formül sonucu olarak eşitledim.AT430 u satırlarda aratıp ilgili hücreyi kopyalıyorum.Fakat formülü kopyaladığı için hep aynı sonucu veriyor.Baktığım zaman bulunan hücreye formülü kopyalıyor.Formülü değilde sadece değerleri kopyalayabilir miyim?

 

[Korhan Ayhan]

Kopyalama bölümünü aşağıdaki gibi değiştirip deneyiniz.

ds.Range("AT431:AT432").Value = ds.Range("AN" & fRow & ":AP" & fRow).Value

 

[cember68]

Kopyalama bölümünü aşağıdaki gibi değiştirip deneyiniz.

ds.Range("AT431:AT432").Value = ds.Range("AN" & fRow & ":AP" & fRow).Value

AT431 ve AT432 hürelerini sildi Korhan Bey.

AT430='28GUN'!B4
AT431='28GUN'!I42
AT432='28GUN'!O42
AT433='28GUN'!R44



Bu sonuçların AT430' u ds sayfasında A:AP sütunları arasında ilgili hücrelere sadece veriyi (formül hariç) kopyalamak istiyorum.
AT431: 40. sütunda
AT432: 41. sütunda
AT433: 42. sütunda

Nasıl olabilir?

 

[cember68]

Tamam Korhan Bey formülü ters girmişim.Çok teşekkür ederim.