Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 8 sonutan 1 ile 8 arasndakiler gsteriliyor.

Konu: Sekmeleri tek bir sayda kt almak iin yardm.

  1. #1
    Yeni ye
    yelik tarihi
    Mar 2010
    Nereden
    ist
    Mesajlar
    4

    Sekmeleri tek bir sayda kt almak iin yardm.

    ncelikle merhaba,
    Benim sorunum u excel de yaklak 50 sekme var. Bu sekmelerde ki tablolar birbirinin ayn. Fakat bir tablo yarm sayfa yer kaplyor geri kalan sayfa boa gidiyor. Benim isteim btn sekmeleri kt alrken tablolar hep birbirinin ardna gitsin. Yazdrma alan belirliyeyim her sekmede ve ondan sonra sekmeleri iaretledim mi btn sekmeler ard ardna bir saydan itibaren kmaya balasn. Yardmc olursanz sevinirim.

  2. #2
    Yeni ye
    yelik tarihi
    Mar 2010
    Nereden
    ist
    Mesajlar
    4
    yok mu yardm edebilecek biri??

  3. #3
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020
    Mrb,
    Yani 50 sayfa kt yerine 25 sayfa m ksn istiyorsunuz?
    yi geceler diliyorum.

  4. #4
    Yeni ye
    yelik tarihi
    Mar 2010
    Nereden
    ist
    Mesajlar
    4
    Alnt behcet Nickli yeden Alnt Mesaj gster
    Mrb,
    Yani 50 sayfa kt yerine 25 sayfa m ksn istiyorsunuz?
    yi geceler diliyorum.
    Evet aynen sekmelerdeki sayfa dzeninden belirlediim yazdrma alan yarm sayfa kaplyor. Benim istediim bir sonraki sekmedeki ayarladm yazdrma alanndan ve takip eden sekmelerde ayn ekilde devam etmesi.

  5. #5
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020
    Mrb,
    Denemek iin ekli makro ile 4 sayfay 2 sayfaya birletirdim. Siz bunu kendi sayfalarnza uyarlamasnz.
    Bunun iin forml 50.sayfaya kadar kopyalamanz gerekli. Sonra da dzenlemelisiniz.
    Belki de STAD larmzdan biri makroyu daha da ksaltabilir.
    Aadaki makroyu bir modle kopyala- yaptr ile yaznz ve sayfa 1 zerindeki bir butona ataynz.
    Makro nce bir BRLESTR sayfas oluturup yazdrr. Sizin tablo alan araln bilmediimden tahmini olarak yazmtm.
    Deiecek yerleri makroda belirttim.

    yi geceler.

    Sub birlestir_yaz()
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
    nom = Sheets(i).Name
    If nom = "BLESKE" Then
    GoTo copie
    End If
    Next i
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "BLESKE"
    GoTo copie:
    Exit Sub
    copie:
    Sheets("BLESKE").Cells.Clear
    'BRNC SAYFA
    Sheets("Sayfa1").Select ' DEECEK
    Range("A1:G26").Select
    Selection.Copy
    Sheets("BLESKE").Select
    Range("A1").Select
    ActiveSheet.Paste
    'KNC SAYFA
    Sheets("Sayfa2").Select 'DEECEK
    Range("A1:G26").Select
    Selection.Copy
    Sheets("BLESKE").Select
    Range("A30").Select 'DEECEK
    ActiveSheet.Paste
    Columns("A:G").Select' DEECEK
    'NC SAYFA
    Sheets("Sayfa3").Select 'DEECEK
    Range("A1:G26").Select
    Selection.Copy
    Sheets("BLESKE").Select
    Range("A62").Select 'DEECEK
    ActiveSheet.Paste
    Columns("A:G").Select' DEECEK
    'DRDNC SAYFA
    Sheets("Sayfa4").Select 'DEECEK
    Range("A1:G26").Select
    Selection.Copy
    Sheets("BLESKE").Select
    Range("A91").Select 'DEECEK
    ActiveSheet.Paste
    Columns("A:G").Select' DEECEK
    ' SAYFA 5
    ' SAYFA 6
    ' SAYFA 7 ........... sayfa 50
    Application.ScreenUpdating = True
    Worksheets("BLESKE").Activate
    Selection.PrintOut Copies:=1
    End Sub

    http://s6.dosya.tc/server2/im68ms/Sa...azdir.xls.html
    Konu behcet tarafndan (21.08.2015 Saat 23:51 ) deitirilmitir.

  6. #6
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020

  7. #7
    Yeni ye
    yelik tarihi
    Mar 2010
    Nereden
    ist
    Mesajlar
    4
    Alnt behcet Nickli yeden Alnt Mesaj gster
    behcet bey teekkr ederim. imdi yaptnz rnek ok gzel olmu. Benim istediim o tua basnca bileke sekmesine dier sayfalardaki tablolar gelsin bende rahat rahat ktm alaym. Bu almada gayet gzel olmu ama direk yazdrmaktansa kontrol edip aradaki boluklar ayarlayp yle kt almak daha iyi olur diye dnyorum. teekkr ederim.

  8. #8
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020
    Mrb,
    Excel harika.. Ancak yetenekleri snrsz deil bence.
    Faydal olabildikse ne mutlu..
    Salcakla kaln.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •