DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub bul()
Dim hcr As Range, deg As String
For Each hcr In Range("F3:F47")
If hcr.Value >= 48 And hcr.Value <= 53 Then
deg = deg & vbLf & "Adres : " & hcr.Address & vbTab & "Sayı : " & hcr.Value
End If
Next
MsgBox deg
End Sub
Basit eğer formülünü her hücrenin yanına yazarak bulabilirisiniz.excel formüllerinden bulamazmıyız?