isim sayfalarından veri alma ?

[buseen]

250 adet isim sayfası var sayfa1 e sayfalardaki d3,d4 rakamları nasıl alıırım ? TŞK

 

[samuelsaw]

250 adet isim sayfası var sayfa1 e sayfalardaki d3,d4 rakamları nasıl alıırım ? TŞK

dosya ektedir kolay gelsin...

 

[buseen]

selam tşk makroya 250 sayfa ismi yazmam mümkün degil
formülle olmazmı

 

[buseen]

Fomülle yapılamazmı ?

 

[irfancantr]

Fomülle yapılamazmı ?

Merhaba,

Sayfa1 C4 hücresine;

=EĞER(EHATALIYSA(DOLAYLI("'"&$B4&"'!d3"));"";DOLAYLI("'"&$B4&"'!d3"))

D4 hücresine de;

=EĞER(EHATALIYSA(DOLAYLI("'"&$B4&"'!d4"));"";DOLAYLI("'"&$B4&"'!d4"))

yazıp aşağıya doğru çoğaltınız.

 

[buseen]

emegi geçenlere tşk

 

[irfancantr]

emegi geçenlere tşk

Kolay gelsin , iyi çalışmalar.

 

[buseen]

250 adet sayfam var g20 satıra 100 tl yazdırmak istiyorum nasıl yapabilirim ? Tşk

 

[Excelmy]

250 adet sayfam var g20 satıra 100 tl yazdırmak istiyorum nasıl yapabilirim ? Tşk

Sayın buseen

Çalışma dosyanızda sayfaya ekleyeceğiniz bir butona aşağıdaki kodları yazınız.

Sub yuzlirayaz()
For syf = 1 To Sheets.Count
    Sheets(syf).Range("G20").Value = CDbl("100")
Next syf
End Sub

 

[buseen]

teşekküler

 

[buseen]

Sayın buseen

Çalışma dosyanızda sayfaya ekleyeceğiniz bir butona aşağıdaki kodları yazınız.

Sub yuzlirayaz()
For syf = 1 To Sheets.Count
    Sheets(syf).Range("G20").Value = CDbl("100")
Next syf
End Sub

fomülle yazmam münkünmü 7 sayfadan sonra

 

[buseen]

macoyla yapınca anamenü+liste +örnek sayfam var onlarada yazıyor

 

[Excelmy]

macoyla yapınca anamenü+liste +örnek sayfam var onlarada yazıyor

Sayın buseen

Döngüdeki başlangıç değerinizi değiştirebilirsiniz.
Şu kod satırında ;

For syf = [B][COLOR="Red"]1[/COLOR][/B] To Sheets.Count

Sub yuzlirayaz()
For syf = [B][COLOR="red"]7[/COLOR][/B] To Sheets.Count
    Sheets(syf).Range("G20").Value = CDbl("100")
Next syf
End Sub

veya ;

Sub yuzlirayaz()
For syf = 1 To Sheets.Count
If Sheets(syf).Name = "anamenü" Or Sheets(syf).Name = "liste" Or Sheets(syf).Name = "örnek" Then GoTo 10
    Sheets(syf).Range("G20").Value = CDbl("100")
10 Next syf
End Sub

şeklinde uygulayabilirsiniz.