Sayı arasında ise şu verileri getir

[cert123]

Merhaba, bir tane tablom var;

Amacım, f:f hücresi 0-90 gün arasında ise m3 hücresine ad soyad ve yanındaki bilgileri sırasıyla getirmek.
Yardımcı olursanız sevinirim.

 

[cert123]

tek formülde yani AL formülüyle getiremez miyiz, tek hücreye formül yazsak?

 

[hasankardas]

tek formülde yani AL formülüyle getiremez miyiz, tek hücreye formül yazsak?

farklı hücrelere veri getirmek istiyorsunuz tek formülle nasıl olabilir? makro ile olur ancak

 

[cert123]

farklı hücrelere veri getirmek istiyorsunuz tek formülle nasıl olabilir? makro ile olur ancak

Var hocam formülü de ben yapamıyorum al(sırala(filtre gibi gibi..

 

[hasankardas]

Başka uzman arkadaşlar size yardımcı olacaktır. AL formülünü ben bilmiyorum

 

[miralemdoganaktas]

Sub Filtrele()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
Dim i As Long, rowNum As Long
rowNum = 3 ' Başlangıç hücresi M3

For i = 2 To ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
If ws.Cells(i, "F").Value >= 0 And ws.Cells(i, "F").Value <= 90 Then
ws.Cells(rowNum, "M").Value = ws.Cells(i, "A").Value
ws.Cells(rowNum, "N").Value = ws.Cells(i, "C").Value
ws.Cells(rowNum, "O").Value = ws.Cells(i, "F").Value
ws.Cells(rowNum, "P").Value = ws.Cells(i, "G").Value
ws.Cells(rowNum, "Q").Value = ws.Cells(i, "H").Value
rowNum = rowNum + 1
End If
Next i
End Sub


HOCAM BU MAKRO işinize yarar veri çokluğunda dosyayı da rahatlatırsınız

If ws.Cells(i, "F").Value >= 0 And ws.Cells(i, "F").Value <= 90 Then

koşulu buradaki ifadede düzenleyebilirsiniz

 

[miralemdoganaktas]

tabloyu bu şekilde düzenleyin hocam ama

 

[miralemdoganaktas]

=SIRALA(FİLTRE(A:H; (F:F>=0)*(F:F<=90); "Sonuç Yok"); 6; 1)
eğer tüm sutunlar gelsin istiyorsanız da bunu kullanın

 

[İbrahim ÇÖRDÜK]

Eğer formülü ile yapabilirsin çok basit şekilde probleminiz çözülmediyse yardımcı olabilirim.