dolaylı formülü uygulama

[hakan_demirkan]

üstadlar yardımınızı bekliyorum sizden dosyam ektedir..AnaSayfada ne demek istediğim yazıyor yardım ederseniz sevinirim.Yorumlarınızı ve bilgilerinizi bekliyorum.

 

[uzmanamele]

merhaba
anladığım kadarıyla;
Firma, Liste, G_TABLOSU ve STOK sayfası yazdığınızda bu sayfalardaki bilgilerin gelmemesini istiyorsunuz.
Liste sayfası B1 ve C1 hücrelerinde aşağıdaki formülleri kullanın

=EĞER(YADA(A1="Firma";A1="Liste";A1="G_TABLOSU";A1="STOK");"";DOLAYLI("'"&A1&"'"&"!$F$5"))

=EĞER(YADA(A1="Firma";A1="Liste";A1="G_TABLOSU";A1="STOK");"";DOLAYLI("'"&A1&"'"&"!$H$5"))

 

[hakan_demirkan]

hocam benim yapmak istediğim şey aslında VB modül sayfasına bakarsanız anlarsınız tamam bu sizin vermiş olduğunuz formül excelde kullanabiliriz fakat benim demek istediğim bu değildi "modül"' e bakarsanız orda formül var biraz o formülün geliştirilmesi lazım yardımcı olursanız sevinirim.

 

[uzmanamele]

merhaba

bu şekilde dener misiniz?

=EĞER(YADA(A1="Firma";A1="Liste";A1="G_TABLOSU";A1 ="STOK");"";DOLAYLI("'"&A1&"'"&"!$F$5"))

"=IF(OR(RC[-1]=""Firma"",RC[-1]=""Liste"",RC[-1]=""G_TABLOSU"",RC[-1] =""STOK""),"""",INDIRECT(""'""&RC[-1]&""'""&""!$F$5""))"

=EĞER(YADA(A1="Firma";A1="Liste";A1="G_TABLOSU";A1 ="STOK");"";DOLAYLI("'"&A1&"'"&"!$H$5"))

"=IF(OR(RC[-2]=""Firma"",RC[-2]=""Liste"",RC[-2]=""G_TABLOSU"",RC[-2] =""STOK""),"""",INDIRECT(""'""&RC[-2]&""'""&""!$H$5""))"

 

[hakan_demirkan]

hocam elinize sağlık biraz fazla oluyorum ama sayfanın isimleride çıkıyor zaten asıl amaçlardan biride bu sayfa isimlerinin çıkmaması eğer buna da bir çare bulabilirsek çok güzel olacak

 

[hakan_demirkan]

formüllü dosyayı ekliyorumm

 

[uzmanamele]

merhaba
sayfa isimleri çıkıyor derken ne demek istiyorsunuz?

hücreye formülü değil formül sonucunda bulunan değeri yazdırsanız istediğiniz olur mu?

 

[İdris SERDAR]

üstadlar yardımınızı bekliyorum sizden dosyam ektedir..AnaSayfada ne demek istediğim yazıyor yardım ederseniz sevinirim.Yorumlarınızı ve bilgilerinizi bekliyorum.

Bu kodları:

Sub sayfa_adları()
On Error Resume Next
For i = 1 To 60
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

Aşağıdaki şekilde yapın:

Sub sayfa_adları()
On Error Resume Next
Application.ScreenUpdating = False

For i = 1 To 60
p = Worksheets.Count
Cells(1, 1).Value = Sheets(p).Name
Cells(i + 1, 1).Value = Sheets(p - i).Name
Next

Set r = ActiveSheet.Range("A65536").End(xlUp).Offset(-3)
Set s = ActiveSheet.Range("A65536").End(xlUp)
Range(r, s).EntireRow.Delete

Application.ScreenUpdating = True

Call düzelt

End Sub



.

 

[hakan_demirkan]

çok sağolun arkadaşlar/üstadlar herkesin emeğine sağlık