Koşullu Aktarım Hatası

[Fuat Şirin]

Arkadaşlar Alttaki kodlara bakarsanız
firmalara ait sayfadaki seçtiğim bilgileri liste sayfasında listeliyorum
istediğim liste sayfasında b1de yazan koşula göre almasını istiyorum
yani b1 de 1 yazıyorsa liste sayfasına
b1 de 2 yazıyorsa liste2 sayfasına almasını istiyorum

çok önemli yardım ederseniz sevinirim

Sub refresh()
Sheets("liste").Select
Range("A1:b100").Select
Selection.ClearContents
Call sayfa_adları
End Sub
Sub sayfa_adları()
On Error Resume Next
For i = 1 To 80
p = Worksheets.Count
Cells(1, 1).Value = Sheets(p).Name
Cells(i + 1, 1).Value = Sheets(p - i).Name
Next
Call düzelt
End Sub
Sub düzelt() 'liste sayfasında liste ve şablon isimli sayfaların adlarını siler
For i = 1 To 80
If Cells(i, 1).Value > "" Then
Cells(i, 1).Select
End If
Next
ActiveCell.Value = Empty
ActiveCell.Offset(-1, 0) = Empty
ActiveCell.Offset(-2, 0) = Empty
ActiveCell.Offset(-3, 0) = Empty
ActiveCell.Offset(-4, 0) = Empty
Call formül
End Sub
Sub formül()
For i = 1 To 80
If Cells(i, 1).Value > "" Then
Cells(i, 2).Select
ActiveCell.Formula = "=INDIRECT(""'""&RC[-1]&""'""&""!$j$4"")"
End If
Next
Call formül1
End Sub
Sub formül1()
For i = 1 To 60
If Cells(i, 1).Value > "" Then
Cells(i, 3).Select
ActiveCell.Formula = "=INDIRECT(""'""&RC[-2]&""'""&""!$j$6"")"
End If
Next
Call Makro2
Call Makro3
End Sub

 

[Korhan Ayhan]

Selamlar,

Fuat bey,

Örnek dosya ekleyip ne yapmak istediğinizi açıklarsanız belki daha kısa ve işlevsel bir kod önerebiliriz.

 

[Fuat Şirin]

dosya ektedir

dosya ektedir

 

[Fuat Şirin]

konu günceldir
şifre 15021981