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?
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?