listedeki verilere göre sheet açma

[mustafaege2000]

hocam bu 6.mesajdaki sunkid tablosu ile ilgili yardım istiyorum

 

[muygun]

hocam bu 6.mesajdaki sunkid tablosu ile ilgili yardım istiyorum

Merhaba;
Örnek dosya ekleyin. (sayfa isimlerini görmek gerek)

 

[mustafaege2000]

otomatik sayfa açma link oluşturma devir rakkamı alama

umarım dosya eklenmiştir
saygılarımla.şimdiden teşekkürler

muygun hocam unuttuğum şablon sayfasındaki tabloyu açılan yeni sayfayada aynen kopyalaması

sunkid dosyası hemen hemen tüm isteklerimi yapıyor ancak devirleri aldıramıyorum

 

[muygun]

umarım dosya eklenmiştir
saygılarımla.şimdiden teşekkürler

muygun hocam unuttuğum şablon sayfasındaki tabloyu açılan yeni sayfayada aynen kopyalaması

sunkid dosyası hemen hemen tüm isteklerimi yapıyor ancak devirleri aldıramıyorum

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[mustafaege2000]

Merhaba;
Eki deneyin.
İyi çalışmalar.

sayın hocam,
yani ne diyeyim.harika olmuş.eline emeğine göz nuruna ,yardımsever ruhuna
sağlık.dilediklerin gönlünce olsun.beni büyük sıkıntıdan kurtardın.
sağol.

 

[mustafaege2000]

hocam
valla sıkılarak yolluyorum.ekli dosyaya bir göz atabilirmisin
model yada adı seçilerek option butonunda tek seçime izin verilerek diğer bilgileri otomatik getirebilirmiyiz.
option butonunda seçim olmaz ise uyarsın

teşekkürler

 

[mustafaege2000]

sayın hocam,
dosya büyük olduğu için tekrar resimleri silerek yükledim
resimleri ben ilave ederim siz kodu yazarsanız.teşekkürler

 

[muygun]

sayın hocam,
dosya büyük olduğu için tekrar resimleri silerek yükledim
resimleri ben ilave ederim siz kodu yazarsanız.teşekkürler

Merhaba;
Bu dosyanız yukardaki sorunuzla yada başlıkla alakalı değil.
Bu sorunuzu uygun bir başlıkla makrolar kısmında açın.
İyi çalışmalar.

 

[ANATOLİA_01]

Sıralı Sayfa Oluşturma

dosyayı yeniden derledim aynı olan sayfalar varsa onları yapmıyacak

Üstadım Verdiğiniz makroyu kullanarak makbuz numaraları sıralı sayfa oluşturabiliyorum. Çok teşekkür ederim. Ancak açılan sayfaların Y46 hücresinde sayfanın ismi, yani makbuz numarasının yazılmasını sağlayabilir miyiz.yada bunu toplu olarak formülize etmenin ve sayfa numaralarını Y46 ya yerleştirmenin kolay yolu var mıdır?

Ekli dosyayı görüntüle TAHSİLAT SAYFA OLUŞTURMA.xls

 

[ANATOLİA_01]

Listedeki verilere göre sheet açma

Oluşan sayfalardaki makbuza =HÜCRE("dosyaadı") formülünü ekledim. Sayfalar oluştuktan sonra tüm sheetleri seçip toplu olarak kopyala>özel yapıştır ve rakamayır formülleriyle her sayfanın adını makbuzlardaki seri no (Y45 hücresine) eklerim dedim ama olmuyor oluşan her sayfada sadece ilk sayfanın numarası görülüyor, tek tek formülün içine girip çıkmadan yenilenmiyor. Acil yardıma ihtiyacım var lütfen kimse yok muuuu?
:yardim::kafa::yardim::kafa::yardim::kafa:



Ekli dosyayı görüntüle TAHSİLAT SAYFA OLUŞTURMA.xls

 

[Emir Hüseyin Çoban]

Üstadım Verdiğiniz makroyu kullanarak makbuz numaraları sıralı sayfa oluşturabiliyorum. Çok teşekkür ederim. Ancak açılan sayfaların Y46 hücresinde sayfanın ismi, yani makbuz numarasının yazılmasını sağlayabilir miyiz.yada bunu toplu olarak formülize etmenin ve sayfa numaralarını Y46 ya yerleştirmenin kolay yolu var mıdır?

. . .

Kodlarınıza aşağıda belirttiğim satırı ilave ederek denyiniz.

On Error Resume Next
Sheets("örnek").Select
Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
Sheets(ActiveSheet.Name).Name = yer
Sheets(yer).Cells(1, 1).Value = yer
[B][COLOR="Purple"]ActiveSheet.Range("Y45") = yer[/COLOR][/B]
Sheets(yer).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End If
End If

. . .

 

[muygun]

Merhaba;
Örnek sayfası Y45 hücresine;
=SAĞDAN(HÜCRE("DosyaAdı";$A$1);UZUNLUK(HÜCRE("DosyaAdı";$A$1))-MBUL("]";HÜCRE("DosyaAdı";$A$1)))

Formülünü uygulayıp deneyin.
İyi çalışmalar.

 

[ANATOLİA_01]

. . .

Kodlarınıza aşağıda belirttiğim satırı ilave ederek denyiniz.

On Error Resume Next
Sheets("örnek").Select
Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
Sheets(ActiveSheet.Name).Name = yer
Sheets(yer).Cells(1, 1).Value = yer
[B][COLOR="Purple"]ActiveSheet.Range("Y45") = yer[/COLOR][/B]
Sheets(yer).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End If
End If

. . .

Hüseyin bey bu kod hata verdi, bir türlü kabul etmedi?

 

[ANATOLİA_01]

Merhaba;
Örnek sayfası Y45 hücresine;
=SAĞDAN(HÜCRE("DosyaAdı";$A$1);UZUNLUK(HÜCRE("DosyaAdı";$A$1))-MBUL("]";HÜCRE("DosyaAdı";$A$1)))

Formülünü uygulayıp deneyin.
İyi çalışmalar.

Teşekkür ederim bu formül direk sayfa numarası verdi ama yeni oluşan sayfalarda hala tek tek hücreye girip/çıkmam gerekiyor. Aksi takdirde ilk sayfanın numarası görülüyor. Formülde korumasız formül uyarısı alıyorum, bunu çözersem olabilir mi acaba?

 

[muygun]

Araçlar>seçenekler>hesaplamalar'ı otomatik konumda mı?

 

[ANATOLİA_01]

Araçlar>seçenekler>hesaplamalar'ı otomatik konumda mı?

evet otomatik.

 

[ANATOLİA_01]

Hüseyin bey bu kod hata verdi, bir türlü kabul etmedi?

Hüseyin Bey tamamiyle benim hatam, kodu yanlış kopyalamışım. Oldu teşekkür ederim.Süpersiniz

:dua::dua::dua:
:hihoho::hihoho::hihoho:
:mutlu::mutlu::mutlu: