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 2 Sayfadan 1. Sayfa 12 SonuncuSonuncu
Toplam 61 sonuçtan 1 ile 40 arasındakiler gösteriliyor.

Konu: ExceltoHTML

  1. #1
    Site ve Akademi Yöneticisi M. Temel Korkmaz - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Mar 2004
    Nereden
    Bursa
    Versiyon
    Excel 2013 TR
    Mesajlar
    3.336

    ExceltoHTML

    Eklediğim dosya ile tablonuzdaki verileri kopyalayıp foruma yapıştırabilirsiniz.

    Aşağıdaki gibi görüntü alacaksınız.

    Gönderen XL Ver.: Office XP / OS Ver.:
    +ABCD
    1GünSıraAyFormül
    2Pazar1Ocak3 (ƒx)
    3Pazartesi2Şubat6 (ƒx)
    4Salı3Mart9 (ƒx)
    5Çarşamba4Nisan12 (ƒx)
    6Perşembe5Mayıs15 (ƒx)
    7Cuma6Haziran18 (ƒx)
    8Cumartesi7Temmuz21 (ƒx)
    9Pazar8Ağustos24 (ƒx)
    10Pazartesi9Eylül27 (ƒx)
    11Salı10Ekim30 (ƒx)
    12Çarşamba11Kasım33 (ƒx)
    13Perşembe12Aralık36 (ƒx)
    XLtoHTML v1.1 / OfficeTürkiye - 2010©


    Kopyalama işlemini F9 ile yapacaksınız.

    DENEMEK İSTEYEN ARKADAŞLAR BU BAŞLIK ALTINDA DENEMELERİNİ YAPABİLİRLER.

    KOLAY GELSİN.
    * Ekteki dosyayı bilgisayarınıza indirip Zip'ten çıkarın.
    * Çıkan *.xla uzantılı dosyayı Addins adlı klasöre atın.
    - Windows XP'de AddIns klasörünün adresi: C:\Documents and Settings\User\Application Data\Microsoft\AddIns
    - Windows 7'de Addins klasörünün adresi: C:\Windows\addins

    * Excel'de Araçlar --> Eklentiler menüsünü tıklayın ve açılan pencereden xltohtml adlı eklentinin işaretini koyun.
    * Tablonuzun tamamını ya da mesaja eklemek istediğiniz kısmını seçip F9 tuşuna basın.
    * Forumda mesaj yazdığınız alana gelip Yapıştırdığınızda tablonuz mesajınıza eklenmiş olur.
    Eklenmiş Dosyalar Eklenmiş Dosyalar
    • Dosya tipi: zip XLtoHTML.zip (16,4 KB (Kilobyte), 616 görüntüleme / indirme.)

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    676
    Hocam bu eklentiniz ile Sayfada bulunan verileri resim olarak mesajımıza yapıştırabiliyoruz.
    Ancak mesela excele ait bir dialogboxı kopyalayamıyoruz.
    Mesela ctrl+f tuşları ile bul boxını getirdiğimizde bunu mesajımıza yapıştıramıyoruz.
    Son mesajınızda Başka upload sitelerinden dosya eklennmemsi konusunda uyardınız.Bu resimleride mesajlarımıza ekleme konusunda nasıl bir yöntem takip etmeliyiz.
    Teşekkür ederim.

  3. #3
    Site ve Akademi Yöneticisi M. Temel Korkmaz - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Mar 2004
    Nereden
    Bursa
    Versiyon
    Excel 2013 TR
    Mesajlar
    3.336
    Merhaba Sayın Sezar.
    Öncelikle ilgi ve gayretleriniz için tebrik ederim. Sizi epey zamandır tanıyorum.

    Değiniz nokta çok önemli. Ancak "iki ucu pisli değnek" tabiri bu tür konular için söylenmiş sanki. Öncelikle şunu tespit etmeliyiz. Bu uyarımız noktasında haklı mıyız, haksız mıyız? Bir çok forum görüyoruz tam bir çöplük olmuş. Konu var, dosya yok (bizde de bazı linkler halen sorunlu). Soru var cevap yok. Soruda resim ile ya da dosya ile konu izah edilmiş ancak dosya bağlantısı kalktığı için ne konunun ne sorunun bir anlamı kalmış. Amacımız herkesin faydalanacağı bir forum oluşturmak. Yani biz forumu terk etsek, kendi haline yıllarca bıraksak da birileri girdiğinde düzenli ve temiz bir ortam yakalamalı.

    Dikkat ediniz, her yerde reklam var, google reklamları her mesajın altında. Soruyu ve cevabı bulmak zaman alıyor. Resimler, avatarlar, imzalar vs vs. Oysa ben bunların hiç birisini koymadım ve koymamaya kararlıyım. Tertemiz mesajlar. Soru belli, cevap belli. İmzalar içerisinden mesaj aramıyor kimse.

    Bu durumu izah ve tespit ettikten sonra "çözüm nasıl olmalı?" sorusuna cevap aramalıyız. Aslında bu cevabı birlikte aramalıyız. Ben kesinlike DOSYA içerisinde soru sorma ve cevap verme olayına karşıyım. Dolayısı ile bu tür soruları bir süre sonra sorulur sorulmaz kaldıracağım. Ancak resim ya da tablo paylaşımına izin vermekgerekiyor. Bunun da suistimal edilmesinden (ki geçmişte çok edildi) endişeliyim.

    Sizlerin konu hakkındaki düşüncelerinizi de aldıktan sonra çözümü uygulamaya koyacağım.

    Muhabbetlerimle...

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    676
    Hocam sizin tarafınızdan tebrik edilmek benim için ayrıca bir övünçtür.Teşekkür ederim.
    Resimler içinde xltohtml eklentisindeki gibi bir eklenti olursa o kullanılabilir yine.Ama o olmazsa bu çözümü nasıl yapacağız bilemiyorum.Atık dosyalar ve linkler konusunda size katılıyorum hocam.Ama bazı sorulara resimli çözümlerde yapmak gerekiyor.Takdir sizindir hocam.Saygılar sunarım.İyi geceler dilerim.

  5. #5
    Forum Yöneticisi
    Üyelik tarihi
    Apr 2004
    Nereden
    İstanbul
    Versiyon
    Excel 2003 TR
    Mesajlar
    1.307
    Merhaba,

    Sevgili hocam; tespitlerinize cân-ı gönülden katılıyorum. Yeniden kullanılabilir bilgi kaynakları üretebilmek ve bunları bozulmadan muhafaza edebilmek için halihazırdaki uygulamalarımızda olduğu üzere;
    • Dosya eklemeye izin verilmemesi,
    • İmza kullanımına izin verilmemesi,
    • Avatar kullanımına izin verilmemesi,
    • Mesaj/Soru içeriği ile ilgisiz başlığa sahip konuların silinmesi ve bu şekilde konu açmakta ısrar edenlerin mesaj göndermesinin engellenmesi,
    • Mesajlarda Türkçemizin kurallarına uyulması konusuna özellikle hassasiyet gösterilmesi,

    konularından taviz verilmemesi taraftarıyım.

    Dosya ve resim ekleme olayının çok istisnai durumlar haricinde gerekli olmadığı kanaatindeyim. Özellikle XLtoHTML eklentisi sayesinde tablo yapılarının foruma kolaylıkla aktarılabildiğini düşünüyorum. Gerçekten yanıt arayan ve öğrenmek arzusunda olan arkadaşların, aradıkları cevapların diyeti olarak sorularını ayrıntılı ve dikkatli şekilde izah etmekten imtina etmemeleri gerektiği kanaatindeyim.

    Kendi adıma geçici depolama imkanı sağlayan web alanlarından ya da kendi kişisel alanlarından dosya bağlantısı ya da resim eklenmiş mesajları genellikle dikkate almıyorum. Sizin de yukarıda belirttiğiniz sebeplerle bu tip mesajlara verilecek yanıtların zamanla anlamsız mesajlar haline dönüşeceğini düşünüyorum ve yanıt yazmaktan imtina ediyorum.

    Dosya ya da resim eklemenin çok gerekli görüldüğü durumda birçok yönetici arkadaştan biri konuya el atıp, bu gerekliliği görüyorsa dosyayı/resmi ekleyecektir zaten.

    Yukarıdakiler benim görüşlerim olmakla birlikte aksi yönde çıkacak bir temayüle ya da alınacak bir karara uymanın da boynumuzun borcu olduğunu ilave etmek isterim.

    Selam ve sevgiler.

  6. #6
    Forum Yöneticisi
    Üyelik tarihi
    Nov 2009
    Nereden
    Tekirdağ
    Versiyon
    Excel 2003 TR
    Mesajlar
    2.883
    Merhaba,

    Müsaadenizle ben de konu ile ilgili fikrimi söylemek istedim. Avatar, imza, reklam ve link hususlarında alınan kararların ve bu kararların uygulanmasındaki kararlılığın sonuna kadar arkasında olduğumu bildirmek istiyorum. İşte bunlar bu forumu bir çöplük olmaktan koruyor, diğerlerinden farklı ve (özellikle söylemek istiyorum) "DEĞERLİ" kılıyor.

    Acaba üyelere sadece resim ekleme yetkisi verilerek, sorularına çok elzem durumlarda ekran görüntüsü eklemeleri sağlanamaz mı ? Bir paylaşım sitesine eklenen resim bir süre sonra silinir ama buraya eklenen resim yöneticiler silmediği müddetçe silinmez; yanılıyor muyum ? Bu sadece fikirdir, herhangi bir memnuniyetsizlik ifadesi değildir. Ne forumdan ne de siz değerli büyüklerimden herhangi bir şikayetim var.

    Selam ile..

  7. #7
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    886
    İlk çalışmalarımdandı, versiyon numarasıda vermişim ama devamı gelmedi tabi . yıllardır %95 ni bitirdiğim halde %5 lik kısmını tamamlayamadım excel-satranç gibi.

    Ek bilgi Fx üzerine mouse ile geldiğinizde formülleri görebilirsiniz.

  8. #8
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    676
    Serkan bey bu güzel çalışmanız için teşekkür ederim.
    Birde Excel sayfası üzerinde gözüken dialogbox'lar içinde yapabilirmisiniz?

  9. #9
    Site ve Akademi Yöneticisi M. Temel Korkmaz - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Mar 2004
    Nereden
    Bursa
    Versiyon
    Excel 2013 TR
    Mesajlar
    3.336
    Serkan Kardeşim, Bu vesile ile tekrar merhaba diyeyim.

    Çalışmanı yıllardır forumda kullanıyoruz. Bir de bir sitede başlığı Excel gibi olan vardı. Eğer çalışmayı bitirip de kullanıma sunarsan seni hayırla yad edenlerin sayısı artacak

  10. #10
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    886
    Merhaba Hocam,
    Bendede en son bu hali var, sonradan biraz değiştirmiş olabilirim ama onları kaybettim. Erdinç bey sağolsun, ondan almıştım bende

  11. #11
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    886
    Alıntı Sezar Nickli Üyeden Alıntı Mesajı göster
    Serkan bey bu güzel çalışmanız için teşekkür ederim.
    Birde Excel sayfası üzerinde gözüken dialogbox'lar içinde yapabilirmisiniz?
    Yapılabilir tabi bir sonraki versiyon notlarına alırım, ama ortak kullanılan dosyaların olabildiğince sade tutulmasından yanayım tabi.

  12. #12
    Yeni Üye
    Üyelik tarihi
    Jul 2011
    Mesajlar
    22
    Hocam eklenti gercekten cok ise yariyor
    Yalniz bir sey sormak istiyorum, digerlerinde nasil bilmiyorum ama Excel-2010`da F9 "simdi hesapla" komutunu iceriyor. Arada bir kullanmam gerekiyor. Bu eklentiye baska bir tus atama imkanimiz var mi acaba?

  13. #13
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    886
    Alıntı PriveT Nickli Üyeden Alıntı Mesajı göster
    Bu eklentiye baska bir tus atama imkanimiz var mi acaba?
    Tabiki, makro düzenleme girdiğinizde (XLtoHTML) projesinde Thisworkbook u tıklayın ordaki
    Kod:
    Application.OnKey "{F9}", "HTML"
    satırında F9 yerine başka bir tuş atayabilirsiniz.

  14. #14
    Yeni Üye
    Üyelik tarihi
    Jul 2011
    Mesajlar
    22
    Gцnderen XL Ver.: bilinmiyor / OS Ver.:
    +FGHI
    1ALANLWH
    2319 m² (ѓx)17.10 Mt (ѓx)18.65 Mt (ѓx)5.00 Mt (ѓx)
    XLtoHTML v1.1 / OfficeTьrkiye - 2010©


    Harika Calisiyor. Excel 2010`da da olmak uzere. Tekrar tesekkurler...

  15. #15
    Yeni Üye
    Üyelik tarihi
    Dec 2012
    Versiyon
    2007
    Mesajlar
    6
    Merhaba,

    Siteye yeni üye oldum.

    Yukarıdaki yorumlardan da zaten anlaşıldığı üzere gerçekten kaliteli bir site. Emeği geçenlere şimdiden teşekkür ederim.

    Bir fikir olarak (eğer dosya ekleme konusunda henüz fark etmediğim bir yenilik yapılmadıysa şu ana kadar) Google'ın Drive hizmetine eklediğimiz dosyaları herkese açık indirilebilr kılabiliyoruz. Sorumuza örnek vereceğimiz dosyayı Google Drive'a yüklediğimiz takdirde ölümsüz bir Link elde etmiş oluruz. Linki buradaki mesajımızda paylaştığımız takdirde sorun da yaratmaz kanımca. Tabii belki de çoktan istifade edilmeye başlanmıştır sitede

    Neyse ben de bir tablo ekleme denemesi yapayım ;

    Gönderen XL Ver.: Office 2007 / OS Ver.:
    +BCD
    12 Büyük daire rotası mesafesi (D)
    13
    14 D =60' x cos⁻¹ [ (sin Lat1 x sin Lat2) + (cos Lat1 x cos Lat2 x cos dLong) ] (ƒx)
    15
    16 D =60' x cos⁻¹ [ (sin 48,00 x sin 54,59) + (cos 48,00 x cos 54,59 x cos 37,40) ] (ƒx)
    17
    18 D =60' x cos⁻¹ [ ( 0,7431 x 0,8150 ) + ( 0,6691 x 0,5795 x 0,7944 ) ] (ƒx)
    19
    20 D =60' x cos⁻¹ [ ( 0,6056 ) + ( 0,3080 ) ] (ƒx)
    21
    22 D =60' x cos⁻¹ [ ( 0,9137 ) ] (ƒx)
    23
    24 D =60' x 23°,98 (ƒx)
    25
    26 D =1438,8 MİL (ƒx)
    27
    XLtoHTML v1.1 / OfficeTürkiye - 2010©
    Konu qbheper tarafından (31.12.2012 Saat 11:14 ) değiştirilmiştir.

  16. #16
    Forum Yöneticisi
    Üyelik tarihi
    Nov 2009
    Nereden
    Tekirdağ
    Versiyon
    Excel 2003 TR
    Mesajlar
    2.883
    Sayın qbheper,

    Güzel sözlerinizden dolayı forum adına teşekkür ederim. Sitenin kurucusu M. Temel Korkmaz'ın mesajınızı okuyacağına eminim.

  17. #17
    Üye
    Üyelik tarihi
    Jan 2013
    Mesajlar
    50
    Windows7'de; bu eklenti dosyasını C:\Windows\addins klasörü altına kopyalayıp, excel seçenekleri/eklentiler/gözat seçeneklerinden kendim tanıttım.
    deneme
    Gönderen XL Ver.: Office 2007 / OS Ver.:
    +E
    7
    XLtoHTML v1.1 / OfficeTürkiye - 2010©

  18. #18
    Kıdemli Üye
    Üyelik tarihi
    Sep 2013
    Nereden
    İstanbul
    Versiyon
    Ofis-2010 Türkçe
    Mesajlar
    488
    Gönderen XL Ver.: bilinmiyor / OS Ver.:
    +OPQ
    5vadetutarçarpım
    65.1.201212.585,00516.362.550 (ƒx)
    78.7.201258.645,002.411.951.560 (ƒx)
    84.10.201212.846,00526.801.614 (ƒx)
    905.07.12 (ƒx)84.076,00 (ƒx)3.455.115.724 (ƒx)
    XLtoHTML v1.1 / OfficeTürkiye - 2010©



    Selamlar Sevgili dostlar buraya yeni üye oldum. Ancak siteyi 2008 den beri takip ediyorum. Ben bir amatörüm ve excel'i hobi olarak öğreniyorum. Excel tablosunun, XLtoHTML eklentisi ile forum sayfaları gibi değişik platformlara gayet güzel aktarılmasını sağladığını öğrenmiş oldum. Çok teşekkürler. Bu arada sayın site sahip ve yöneticilerine şükran borçluyum.

  19. #19
    Kıdemli Üye
    Üyelik tarihi
    Aug 2013
    Nereden
    Bilecik
    Versiyon
    2010
    Mesajlar
    482
    XLtoHTML dosyasını C:\Users\user\AppData\Roaming\Microsoft\AddIns klasörüne ekledim ama excel eklentilerde dosyayı işaretlediğimde ve "tamam"a bastığımda, önce dosya içindeki kodları görüntülüyor ardından "Bu projedeki kod 64 bit sistemlerde güncellenmiş olmalı." şeklinde hata uyarısı veriyor. ofis 2010 kullanıyorum. Sebebi ne olabilir?

  20. #20
    Forum Yöneticisi
    Üyelik tarihi
    Nov 2009
    Nereden
    Tekirdağ
    Versiyon
    Excel 2003 TR
    Mesajlar
    2.883
    Bu kodların 64 bit sistemlerde çalışmadığını başka bir arkadaşımız daha söylemişti. Benim deneme şansım yok. Eğer 64 bir sistemlerde çalışan bir eklenti elimize geçerse onu kullanırız.

  21. #21
    Yeni Üye
    Üyelik tarihi
    Sep 2004
    Mesajlar
    7
    F9 ile 124 satır tablo verisini kopyalayabilirken, fazlası verileri kopyaladığımda
    Seçtiğiniz bölge A-Z kolonları arasında olmalıdır iletisi alıyorum.

    HTML() fonksiyonu

    hata:
    MsgBox "Seçtiğiniz bölge A-Z kolonları arasında olmalıdır" satırına gidiyor.

    İşletim sistemim Win 7 64 Ultimate
    Office 2003

  22. #22
    Forum Yöneticisi
    Üyelik tarihi
    Nov 2009
    Nereden
    Tekirdağ
    Versiyon
    Excel 2003 TR
    Mesajlar
    2.883
    Bu eklenti tablonun tamamını değil bir kısmını eklemek üzere tasarlanmış. Sorulan sorunun daha anlaşılabilir olması için tablonun bir kısmını kopyalanması yeterli olacaktır.

  23. #23
    Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    Eskikent
    Versiyon
    Excel 2010 TR
    Mesajlar
    99
    Alıntı Yakup Karaman Nickli Üyeden Alıntı Mesajı göster
    Bu kodların 64 bit sistemlerde çalışmadığını başka bir arkadaşımız daha söylemişti. Benim deneme şansım yok. Eğer 64 bir sistemlerde çalışan bir eklenti elimize geçerse onu kullanırız.
    Yakup Bey,


    64 Bit sistem kullanıyorum. Bende böyle bir sorun yok. Eklenti normal bir şekilde çalışıyor. Belki bu sorun office güncellemeleri ile alakalı olabilir diye düşünüyorum.

  24. #24
    Kıdemli Üye
    Üyelik tarihi
    Oct 2005
    Mesajlar
    115
    Çok güzel bir paylaşım.
    Yapan arkadaşın ellerine sağlık.
    Dikey ortalama ve doğum tarihi göstermede sıkıntı var lakin.
    Bilgilerinize.

    Gönderen XL Ver.: Office 2003 / OS Ver.:
    +ABCD
    1SıraAdıSoyadıDoğum
    21BahadırÖrkmes7.23.1978
    XLtoHTML v1.1 / OfficeTürkiye - 2010©

  25. #25
    Kıdemli Üye
    Üyelik tarihi
    Aug 2013
    Nereden
    Bilecik
    Versiyon
    2010
    Mesajlar
    482
    Excelden kopyala yapıştır yapılmış hali:
    B C D
    2 dfsg
    3 klş fh jklş
    4 gk fgh hg
    5 fg hjk klş
    6 lşi şi, i,
    7 0
    Eklenti ile kopyala yapıştır yapılmış hali:
    Gönderen XL Ver.: bilinmiyor / OS Ver.:
    +BCD
    2dfsg
    3klşfhjklş
    4gkfghhg
    5fghjkklş
    6lşişi,i,
    70 (ƒx)
    XLtoHTML v1.1 / OfficeTürkiye - 2010©
    Konu Barış Karaman tarafından (07.01.2014 Saat 13:25 ) değiştirilmiştir.

  26. #26
    Kıdemli Üye
    Üyelik tarihi
    Oct 2010
    Nereden
    Denizli
    Versiyon
    Excel 2007 TR
    Mesajlar
    102
    . . .

    HTML' e merak saldığım şu günlerde, çevirim tablosunda bir kaç revize yaptım.

    • Windows versiyon kodlaması değişti.
    • Hücrelerde tanımlı olan hizalama sitili kullanılır.
    • Dizi formüller belirtildi.
    • Tarih sorunu giderildi.
    • Sayfa ismi bilgisi eklendi.
    • Sütun genişliği kullanılır.


    . . .
    Eklenmiş Dosyalar Eklenmiş Dosyalar

  27. #27
    Kıdemli Üye
    Üyelik tarihi
    Sep 2013
    Nereden
    İstanbul
    Versiyon
    Ofis-2010 Türkçe
    Mesajlar
    488
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 7 Home Premium 32-bit
    +RST
    11,50 $1,50 $3,00 $ (ƒx)
    Sayfa İsmi: Sayfa8 (Sayfa15)
    XLtoHTML v1.2 / OfficeTürkiye - 2014©


    Sayın üstadlarım;
    Buraya yapıştırdığım TL formatlı sayılar neden TL olarak değilde $ işaretiyle çıkıyor. Bunu düzeltmenin bir yolu var mıdır? Daha önce Tarihlerde, Ay ve Gün yer değiştirerek çıkıyordu. Şimdi düzeltildi.

  28. #28
    Yeni Üye
    Üyelik tarihi
    Apr 2014
    Mesajlar
    17
    Çok etkileyici bir yenilik olmuş başarılarınızın devamını dilerim .)

  29. #29
    Yeni Üye
    Üyelik tarihi
    Jan 2014
    Mesajlar
    4
    Office Ver.: Office 2003
    Windows Ver.: Windows 7 Professional 64-bit
    +ABCD
    1abc
    215611
    328129
    43274
    Sayfa Ýsmi: Sheet1 ()
    XLtoHTML v1.2 / OfficeTürkiye - 2014©


    deneme..!

  30. #30
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    Deneme
    Gönderen XL Ver.: Office 2007 / OS Ver.:
    +AB
    1Teknik Birim KoduTeknik Birim Tanımı
    21200-URÜretim Tesisleri
    31200-UR-001Üretim Müdürlüğü
    41200-UR-001-24Şişe Üretim
    XLtoHTML v1.1 / OfficeTürkiye - 2010©

  31. #31
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    246
    renk denemesi

    Mic.Ofis Versiyonu: Office 2003 / İşletim Sistemi Adı: Microsoft Windows XP Professional
    +ABC
    1Hücre RengiRenk & kodRenk & İsim
    21#000000Siyah
    32#FFFFFFBeyaz
    43#FF0000Kırmızı
    54#00FF00Parlak Yeşil
    65#0000FFMavi
    76#FFFF00Sarı
    87#FF00FFPembe
    98#00FFFFTurkuaz
    109#800000Koyu Kırmızı
    1110#008000Yeşil
    1211#000080Koyu Mavi
    1312#808000Koyu Sarı
    1413#800080Menekşe
    1514#008080Haki
    1615#C0C0C0Gri-25%
    1716#808080Gri-50%
    1817#9999FFMenekşe
    1918#993366Erik
    2019#FFFFCCFildişi
    2120#CCFFFFAçık Turkuaz
    2221#660066Koyu Eflatun
    2322#FF8080Mercan
    2423#0066CCOkyonus Mavisi
    2524#CCCCFFBuz mavisi
    2625#000080Koyu Mavi
    2726#FF00FFPembe
    2827#FFFF00sarı
    2928#00FFFFTurkuaz
    3029#800080Mor
    3130#800000Koyu Kırmızı
    3231#008080Deniz Mavisi
    3332#0000FFMavi
    3433#00CCFFGök Mavi
    3534#CCFFFFParlak Turkuaz
    3635#CCFFCCParlak Yeşil
    3736#FFFF99Parlak Yellow
    3837#99CCFFSoluk Mavi
    3938#FF99CCGül
    4039#CC99FFLavanta
    4140#FFCC99Sarımsı-Kahve
    4241#3366FFParlak Mavi
    4342#33CCCCSu
    4443#99CC00Limon Yeşil
    4544#FFCC00Altın
    4645#FF9900Parlak Turuncu
    4746#FF6600Turuncu
    4847#666699Mavi-Gri
    4948#969696Gri-40%
    5049#003366Koyu Haki
    5150#339966Deniz Yeşil
    5251#003300Koyu Yeşil
    5352#333300Zeytin Yeşili
    5453#993300Kahverengi
    5554#993366Erik Rengi
    5655#333399Çivit Mavi
    5756#333333Gri-80%
    Sayfa İsmi: Sayfa8 (2) / Kod Sayfası: Sayfa10 / Hücre Aralığı: $A$1:$C$57
    Konu halit3 tarafından (09.05.2015 Saat 18:19 ) değiştirilmiştir.

  32. #32
    Yeni Üye
    Üyelik tarihi
    Aug 2014
    Mesajlar
    11
    Gönderen XL Ver.: bilinmiyor / OS Ver.:
    +ABCDEFGHI
    1KiloBölge1Bölge2Bölge 3
    21237380kgBölgeFiyat
    323974803274
    43527680
    54657882
    65738084
    76738073
    87738073
    98738073
    109738097
    1110748099
    1211768099
    XLtoHTML v1.1 / OfficeTürkiye - 2010©

  33. #33
    Kıdemli Üye
    Üyelik tarihi
    Sep 2013
    Nereden
    İstanbul
    Versiyon
    Ofis-2010 Türkçe
    Mesajlar
    488
    Sayın Üstadlarım,
    Bu eklentiyi bu forumda her zaman kullanıyorum. Çok işimize yarayan bir eklenti olduğu muhakkak, lakin 13.08.2014 günü içinde Excel Grafiği bulunan bir sayfa eklemek istedim. Fakat sayfanın sadece veri olan bölümünü ekleyip Grafiği eklemedi. Bu mümkün değil mi? Eğer eklenemiyorsa bunun için bir düzenleme yapılamaz mı? Teşekkürler.

  34. #34
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    246
    deneme

    Mic.Ofis Versiyonu: Office 2007 / İşletim Sistemi Adı: Microsoft Windows XP Professional
    +ABC
    1Hücre RengiRenk & kodRenk & İsim
    21#000000Siyah
    32#FFFFFFBeyaz
    43#FF0000Kırmızı
    54#00FF00Parlak Yeşil
    65#0000FFMavi
    76#FFFF00Sarı
    87#FF00FFPembe
    98#00FFFFTurkuaz
    109#800000Koyu Kırmızı
    1110#008000Yeşil
    1211#000080Koyu Mavi
    1312#808000Koyu Sarı
    1413#800080Menekşe
    1514#008080Haki
    1615#C0C0C0Gri-25%
    1716#808080Gri-50%
    1817#9999FFMenekşe
    1918#993366Erik
    2019#FFFFCCFildişi
    2120#CCFFFFAçık Turkuaz
    2221#660066Koyu Eflatun
    2322#FF8080Mercan
    2423#0066CCOkyonus Mavisi
    2524#CCCCFFBuz mavisi
    2625#000080Koyu Mavi
    2726#FF00FFPembe
    2827#FFFF00sarı
    2928#00FFFFTurkuaz
    3029#800080Mor
    3130#800000Koyu Kırmızı
    3231#008080Deniz Mavisi
    3332#0000FFMavi
    3433#00CCFFGök Mavi
    3534#CCFFFFParlak Turkuaz
    3635#CCFFCCParlak Yeşil
    3736#FFFF99Parlak Yellow
    3837#99CCFFSoluk Mavi
    3938#FF99CCGül
    4039#CC99FFLavanta
    4140#FFCC99Sarımsı-Kahve
    4241#3366FFParlak Mavi
    4342#33CCCCSu
    4443#99CC00Limon Yeşil
    4544#FFCC00Altın
    4645#FF9900Parlak Turuncu
    4746#FF6600Turuncu
    4847#666699Mavi-Gri
    4948#969696Gri-40%
    5049#003366Koyu Haki
    5150#339966Deniz Yeşil
    5251#003300Koyu Yeşil
    5352#333300Zeytin Yeşili
    5453#993300Kahverengi
    5554#993366Erik Rengi
    5655#333399Çivit Mavi
    5756#333333Gri-80%
    Sayfa İsmi: Sayfa8 (2) / Kod Sayfası: Sayfa10 / Hücre Aralığı: $A$1:$C$57
    Konu halit3 tarafından (09.05.2015 Saat 18:21 ) değiştirilmiştir.

  35. #35
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    246
    deneme

    Mic.Ofis Versiyonu: Office 2007 / İşletim Sistemi Adı: Microsoft Windows 7 Ultimate
    +ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBE
    1Hücre Rengi1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
    2Renk & kod#000000#FFFFFF#FF0000#00FF00#0000FF#FFFF00#FF00FF#00FFFF#800000#008000#000080#808000#800080#008080#C0C0C0#808080#9999FF#993366#FFFFCC#CCFFFF#660066#FF8080#0066CC#CCCCFF#000080#FF00FF#FFFF00#00FFFF#800080#800000#008080#0000FF#00CCFF#CCFFFF#CCFFCC#FFFF99#99CCFF#FF99CC#CC99FF#FFCC99#3366FF#33CCCC#99CC00#FFCC00#FF9900#FF6600#666699#969696#003366#339966#003300#333300#993300#993366#333399#333333
    3Renk & İsimSiyahBeyazKırmızıParlak YeşilMaviSarıPembeTurkuazKoyu KırmızıYeşilKoyu MaviKoyu SarıMenekşeHakiGri-25%Gri-50%MenekşeErikFildişiAçık TurkuazKoyu EflatunMercanOkyonus MavisiBuz mavisiKoyu MaviPembesarıTurkuazMorKoyu KırmızıDeniz MavisiMaviGök MaviParlak TurkuazParlak YeşilParlak YellowSoluk MaviGülLavantaSarımsı-KahveParlak MaviSuLimon YeşilAltınParlak TuruncuTuruncuMavi-GriGri-40%Koyu HakiDeniz YeşilKoyu YeşilZeytin YeşiliKahverengiErik RengiÇivit MaviGri-80%
    Sayfa İsmi: Sayfa11 / Kod Sayfası: / Hücre Aralığı: $A$1:$BE$3
    Konu halit3 tarafından (09.05.2015 Saat 23:22 ) değiştirilmiştir.

  36. #36
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    246
    Yukarıdaki renk denemelerini kodu

    PHP- Kodu:
    Sub HTML4()
    Dim Txtversiyon As String

    Dim MyDO 
    As New DataObject
    Dim rng 
    As Range

    '''''  değişkenler  '''''''''''''''''
    Dim rngV(9999), rngF(9999), rngFormat(9999), rngClr(9999), rngFonClr(9999), Clm(999), Row(999)
    Dim rngFN(9999), rngSize(9999), rngHalign(9999), rngValign(9999), charf(999), rnum(999)
    Dim rngXX(9999), rngYY(9999), rngFA(9999), rngFD(9999), h1h2birikisatirsutunadres

    Dim clms
    rowsoldRngRowoldRngClmxyyc As Integer
    Dim rngBold
    (9999), rngItalic(9999) As Boolean

    '''''''''''''''''''''''''''''''''''''
    Application.ScreenUpdating = False

    yer = ActiveWindow.RangeSelection.Address
    adres1 = ActiveWindow.RangeSelection.Address
    deg1 = Split(ActiveWindow.RangeSelection.Address, ":")
    If UBound(deg1) > 0 Then
    sut1 = Range(deg1(0)).Column
    sut2 = Range(deg1(1)).Column
    sat1 = Range(deg1(0)).Row
    sat2 = Range(deg1(1)).Row
    Else
    sut1 = ActiveWindow.RangeSelection.Column
    sut2 = ActiveWindow.RangeSelection.Column
    sat1 = ActiveWindow.RangeSelection.Row
    sat2 = ActiveWindow.RangeSelection.Row
    End If

    If sut2 - sut1 > 24 Then On Error GoTo hata
    yer3 = ((sut2 - sut1) + 1) * ((sat2 - sat1) + 1)
    If yer3 > 200 Then GoTo hata2



    deg1 = Array(-4105, -4142, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, _
    11, 12, 13, 14, 15, 16, 17, 18, 19, 20, _
    21, 22, 23, 24, 25, 26, 27, 28, 29, 30, _
    31, 32, 33, 34, 35, 36, 37, 38, 39, 40, _
    41, 42, 43, 44, 45, 46, 47, 48, 49, 50, _
    51, 52, 53, 54, 55, 56)


    deg2 = Array("#000000", "#FFFFFF", "#000000", "#FFFFFF", "#FF0000", "#00FF00", "#0000FF", "#FFFF00", _
    "#FF00FF", "#00FFFF", "#800000", "#008000", "#000080", "#808000", _
    "#800080", "#008080", "#C0C0C0", "#808080", "#9999FF", "#993366", _
    "#FFFFCC", "#CCFFFF", "#660066", "#FF8080", "#0066CC", "#CCCCFF", _
    "#000080", "#FF00FF", "#FFFF00", "#00FFFF", "#800080", "#800000", _
    "#008080", "#0000FF", "#00CCFF", "#CCFFFF", "#CCFFCC", "#FFFF99", _
    "#99CCFF", "#FF99CC", "#CC99FF", "#FFCC99", "#3366FF", "#33CCCC", _
    "#99CC00", "#FFCC00", "#FF9900", "#FF6600", "#666699", "#969696", _
    "#003366", "#339966", "#003300", "#333300", "#993300", "#993366", _
    "#333399", "#333333")

    oldRngRow = 0
    yc = 0
    For Each rng In Selection.Cells

    If Val(yc) > 200 Then GoTo hata

    If rng.Row > oldRngRow Then
    oldRngRow = rng.Row
    '''''  
    satır  '''''''''''''''''
    satir = rng.Row
    '''''''''''''''''
    1

    0
    oldRngClm 
    0
    Row
    (x) = rng.RowHeight
    rnum
    (x) = rng.Row
    rows 
    rows Row(x)
    End If


    If 
    rng.Column oldRngClm Then
    oldRngClm 
    rng.Column
    '''''  sütun  '''''''''''''''''
    sutun rng.Column
    '''''''''''''''''
    y = y + 1
    yc = yc + 1
    Clm(yc) = rng.ColumnWidth

    charf(yc) = Split(Cells(1, rng.Column).Address, "$")(1)
    clms = clms + Clm(y)
    End If

    '''''  
    hücre adresi  '''''''''''''''''
    adres = Cells(satir, sutun).Address
    '''''''''''''''''
    With rng
    rngV
    (xy) = .Value

    If Left(rngV(xy), 5) = "Error" Then rngV(xy) = "HATA"
    If ThisWorkbook.Sheets(1).[A1] = 1 Then
    ActiveWindow
    .DisplayFormulas True
    rngF
    (xy) = .Text
    ActiveWindow
    .DisplayFormulas False
    Else
    rngF(xy) = WorksheetFunction.Substitute(.Formula","";")
    End If

    '''''  dizi formüller 1 '''''''''''''''''
    If Range(adres).HasFormula True Then
    If Range(adres).HasArray True Then
    rngFD
    (xy) = "dizi"
    Else
    End If
    End If
    '''''  formül olan hücre adresi  '''''''''''''''''
    rngFA(xy) = adres
    ''''''''''''''''''''''''

    rngF(xy) = WorksheetFunction.Substitute(rngF(xy), "<>""«»")
    rngFormat(xy) = .NumberFormat

    '''''  hizalama 1  '''''''''''''''''
    If Range(adres).HorizontalAlignment 1 Then
    h1 
    "left>"
    h2 "right>"
    ElseIf Range(adres).HorizontalAlignment = -4131 Then
    h1 
    "left>"
    h2 "left>"
    ElseIf Range(adres).HorizontalAlignment = -4108 Then
    h1 
    "center>"
    h2 "center>"
    ElseIf Range(adres).HorizontalAlignment = -4152 Then
    h1 
    "right>"
    h2 "right>"
    End If

    rngXX(xy) = h1
    rngYY
    (xy) = h2
    '''''''''''''''''

    aranan1 = Cells(satir, sutun).Font.ColorIndex

    rngClr(x, y) = "#000000"
    For m = 0 To 57
    If aranan1 = deg1(m) Then
    rngClr(x, y) = deg2(m)
    Exit For
    End If
    Next m


    If Err.Number <> 0 Then Err.Clear: rngClr(x, y) = "black"

    aranan2 = Cells(satir, sutun).Interior.ColorIndex
    rngFonClr(x, y) = "#FFFFFF"
    For t = 0 To 57
    If aranan2 = deg1(t) Then
    rngFonClr(x, y) = deg2(t)
    Exit For
    End If
    Next t


    If Err.Number <> 0 Then Err.Clear: rngFonClr(x, y) = "white"
    rngFN(x, y) = .Font.Name
    rngSize(x, y) = Round(.Font.Size / 4.5, 1)
    rngBold(x, y) = .Font.Bold
    rngItalic(x, y) = .Font.Italic
    End With
    If rngF(x, y) <> "" Then
    If Left(rngF(x, y), 1) = "+" Or Left(rngF(x, y), 1) = "=" _
    Or Left(rngF(x, y), 1) = "-" Or Left(rngF(x, y), 1) = "*" Then
    GoTo devam
    Else
    rngF(x, y) = ""
    End If
    End If
    devam:
    Next

    versiyon = "bilinmiyor"
    Select Case Application.Version
    Case "7.0"
    versiyon = "Office 95"
    Case "8.0"
    versiyon = "Office 97"
    Case "9.0"
    versiyon = "Office 2000"
    Case "10.0"
    versiyon = "Office XP"
    Case "11.0"
    versiyon = "Office 2003"
    Case "12.0"
    versiyon = "Office 2007"
    Case "13.0"
    versiyon = "Office 2010"
    Case "14.0"
    versiyon = "Office 2011"
    Case "15.0"
    versiyon = "Office 2013"
    End Select

    Set sistem = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
    For Each isletimsistemi In sistem
    sistemadi = isletimsistemi.Caption
    Next

    Txt = "<table border=1><tr><td align=left valign=center><font size=1 color=red face=verdana><b>" _
    & "Mic.Ofis Versiyonu:</b></font><font size=1 face=verdana> " & versiyon & "  / " & "</font><font size=1 color=red face=verdana><b>İşletim Sistemi Adı:</b></font><font size=1 face=verdana> " & sistemadi & "</font></td></tr><tr valign=top><td>"
    Txt = Txt & "<table border=0 bgcolor=#B0B0B0 cellspacing=1 cellpadding=1 align=center><tr align=center valign=center bgcolor=white>"


    For i = 0 To y
    If i = 0 Then
    Txt = Txt & "<td bgcolor=d4d0c8 align=center><font color=black size=2>+</font></td>"
    Else
    '''''' SÜTUN GENİŞLİĞİ ''''''''''''''
    sutungenisligi = Val(Columns(charf(i)).ColumnWidth * 5.12) & ">"
    Txt = Txt & "<td bgcolor=d4d0c8 width=" & sutungenisligi & "<font color=black size=1 face=verdana>" & charf(i) & "</font></td>" '
    SÜTUN HARFLARI
    '''''''''''''''''''''''''''''''''''''''
    End If
    Next
    Txt = Txt & "</tr>"

    For i = 1 To x
    Txt = Txt & "<tr align=left bgcolor=white height=20>" _
    & "<td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>" & rnum(i) & "</font></td>"
    For j = 1 To y
    '''''  
    hizalama 2  '''''''''''''''''
    bir = rngXX(i, j)
    iki = rngYY(i, j)
    '''''''''''''''''
    '''''  dizi formüller 2 '''''''''''''''''
    If rngF(ij) <> "" And rngFD(ij) = "dizi" Then
    rngF
    (ij) = "Dizi Formül: {" rngF(ij) & "}"
    Else
    End If
    ''''''''''''''''''''''''
    Txt Txt "<td" IIf(rngFonClr(ij) <> "FFFFFF"" bgcolor=" rngFonClr(ij), "") & _
    IIf
    (rngV(ij) <> """ nowrap=true""") & _
    IIf
    (IsNumeric(rngV(ij)), " align=" iki" align=" bir_
    IIf(rngV(ij) <> """<font size=1 color=" rngClr(ij) & " face=verdana>"""_
    IIf(rngBold(ij), "<b>""") & IIf(rngItalic(ij), "<i>""") & _
    IIf
    (rngF(ij) = """""<ACRONYM  title='" rngF(ij) & "'>") & _
    Format
    (rngV(ij), IIf(rngFormat(ij) = "General" Or rngFormat(ij) = "Text" Or rngFormat(ijLike "*" "/" "*""@"rngFormat(ij))) _
    IIf(rngF(ij) = """"" <b>(ƒx)</b></ACRONYM>"_
    IIf(rngItalic(ij), "</i>""") & IIf(rngBold(ij), "</b>"""_
    IIf(rngV(ij) <> """</font></td>""</td>")
    Next
    Txt 
    Txt "</tr>"
    Next
    ''''''

    hücre Selection.Cells.Address
    kodsayfaismi 
    ActiveSheet.CodeName
    sayfabilgileri 
    "Sayfa İsmi: (" ActiveSheet.Name ")-  Kod Sayfası: (" kodsayfaismi ")" " - Hücre Aralığı : (" hücre ")"
    bir "<font size=1 color=red face=verdana><b>Sayfa İsmi:</b></font><font size=1 face=verdana> " ActiveSheet.Name "  / "
    iki bir "<font size=1 color=red face=verdana><b>Kod Sayfası:</b></font><font size=1 face=verdana> " kodsayfaismi "  / "
    sayfabilgileri iki "<font size=1 color=red face=verdana><b>Hücre Aralığı:</b></font><font size=1 face=verdana> " hücre ""
    Txt Txt "</table></td></tr><tr><td bgcolor=f0f8ff align=left><font color=black size=1 face=verdana><b>" sayfabilgileri "</b></font></td></tr></table>"


    If Len(Txt) > 0 Then
    MyDO
    .SetText Txt
    MyDO
    .PutInClipboard
    End 
    If


    Exit 
    Sub
    hata
    :
    MsgBox "Seçtiğiniz bölge A-Z kolonları arasında olmalıdır"
    hata2:
    MsgBox "Seçtiğiniz bölge 200 hücreden fazla"

    End Sub 
    Konu halit3 tarafından (09.05.2015 Saat 23:25 ) değiştirilmiştir.

  37. #37
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    962
    Sayın Hüseyin Bey,
    ExceltoHTML Revize de aşağıdaki kırmızı ile belirttiğim hatayı veriyor ve kopyalama yapmıyor.
    İlgilenmeniz mümkün mü? (Bilgisayarım Win7 64 bit)

    'Serkan Düzcan
    'http://www.excel.gen.tr
    'http://www.office.gen.tr
    'http://www.hesaptablosu.com
    ' 2014 GÜNCELLEME
    Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
    End Type
    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long

  38. #38
    Kıdemli Üye
    Üyelik tarihi
    Oct 2010
    Nereden
    Denizli
    Versiyon
    Excel 2007 TR
    Mesajlar
    102
    Alıntı behcet Nickli Üyeden Alıntı Mesajı göster
    Sayın Hüseyin Bey,
    ExceltoHTML Revize de aşağıdaki kırmızı ile belirttiğim hatayı veriyor ve kopyalama yapmıyor.
    İlgilenmeniz mümkün mü? (Bilgisayarım Win7 64 bit)

    'Serkan Düzcan
    'http://www.excel.gen.tr
    'http://www.office.gen.tr
    'http://www.hesaptablosu.com
    ' 2014 GÜNCELLEME
    Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
    End Type
    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long
    . . .

    Merhaba.

    64 bit işletim sistemlerinde bazı API kodlamalarında PtrSafe ilave etmek gerekiyor.

    Şu şekilde deneyiniz.

    Kod:
    Private Declare PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _(lpVersionInformation As OSVERSIONINFO) As Long
    . . .

  39. #39
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    962
    Mrb Hüseyin Hocam,
    Denedim.Tamamdır. Çok teşekkür ediyorum.
    Sağlıcakla kalın. İyi geceler.

  40. #40
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    246
    deneme mesajı

    Mic.Ofis Versiyonu: Office 2003 / İşletim Sistemi Adı: Microsoft Windows XP Professional
    +ABCD
    31#000000Siyah0 0 0
    42#FFFFFFBeyaz255 255 255
    53#FF0000Kırmızı255 0 0
    64#00FF00Parlak Yeşil0 255 0
    75#0000FFMavi0 0 255
    86#FFFF00Sarı255 255 0
    97#FF00FFPembe255 0 255
    108#00FFFFTurkuaz0 255 255
    119#800000Koyu Kırmızı128 0 0
    1210#008000Yeşil0 128 0
    Sayfa İsmi: Sayfa10 / Kod Sayfası: Sayfa13 / Hücre Aralığı: $A$3:$D$12


    kod:

    PHP- Kodu:
    Sub HTML()
    Dim Txtversiyon As String

    Dim MyDO 
    As New DataObject
    Dim rng 
    As Range

    '''''  değişkenler  '''''''''''''''''
    Dim rngV(9999), rngF(9999), rngFormat(9999), rngClr(9999), rngFonClr(9999), Clm(999), Row(999)
    Dim rngFN(9999), rngSize(9999), rngHalign(9999), rngValign(9999), charf(999), rnum(999)
    Dim rngXX(9999), rngYY(9999), rngFA(9999), rngFD(9999), h1h2birikisatirsutunadres

    Dim clms
    rowsoldRngRowoldRngClmxyyc As Integer
    Dim rngBold
    (9999), rngItalic(9999) As Boolean

    '''''''''''''''''''''''''''''''''''''
    Application.ScreenUpdating = False

    yer = ActiveWindow.RangeSelection.Address
    adres1 = ActiveWindow.RangeSelection.Address
    deg1 = Split(ActiveWindow.RangeSelection.Address, ":")
    If UBound(deg1) > 0 Then
    sut1 = Range(deg1(0)).Column
    sut2 = Range(deg1(1)).Column
    sat1 = Range(deg1(0)).Row
    sat2 = Range(deg1(1)).Row
    Else
    sut1 = ActiveWindow.RangeSelection.Column
    sut2 = ActiveWindow.RangeSelection.Column
    sat1 = ActiveWindow.RangeSelection.Row
    sat2 = ActiveWindow.RangeSelection.Row
    End If

    If sut2 - sut1 > 24 Then On Error GoTo hata
    yer3 = ((sut2 - sut1) + 1) * ((sat2 - sat1) + 1)
    If yer3 > 200 Then GoTo hata2



    deg1 = Array(-4105, -4142, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, _
    11, 12, 13, 14, 15, 16, 17, 18, 19, 20, _
    21, 22, 23, 24, 25, 26, 27, 28, 29, 30, _
    31, 32, 33, 34, 35, 36, 37, 38, 39, 40, _
    41, 42, 43, 44, 45, 46, 47, 48, 49, 50, _
    51, 52, 53, 54, 55, 56)


    deg2 = Array("#000000", "#FFFFFF", "#000000", "#FFFFFF", "#FF0000", "#00FF00", "#0000FF", "#FFFF00", _
    "#FF00FF", "#00FFFF", "#800000", "#008000", "#000080", "#808000", _
    "#800080", "#008080", "#C0C0C0", "#808080", "#9999FF", "#993366", _
    "#FFFFCC", "#CCFFFF", "#660066", "#FF8080", "#0066CC", "#CCCCFF", _
    "#000080", "#FF00FF", "#FFFF00", "#00FFFF", "#800080", "#800000", _
    "#008080", "#0000FF", "#00CCFF", "#CCFFFF", "#CCFFCC", "#FFFF99", _
    "#99CCFF", "#FF99CC", "#CC99FF", "#FFCC99", "#3366FF", "#33CCCC", _
    "#99CC00", "#FFCC00", "#FF9900", "#FF6600", "#666699", "#969696", _
    "#003366", "#339966", "#003300", "#333300", "#993300", "#993366", _
    "#333399", "#333333")

    oldRngRow = 0
    yc = 0
    For Each rng In Selection.Cells

    If Val(yc) > 200 Then GoTo hata

    If rng.Row > oldRngRow Then
    oldRngRow = rng.Row
    '''''  
    satır  '''''''''''''''''
    satir = rng.Row
    '''''''''''''''''
    1

    0
    oldRngClm 
    0
    Row
    (x) = rng.RowHeight
    rnum
    (x) = rng.Row
    rows 
    rows Row(x)
    End If


    If 
    rng.Column oldRngClm Then
    oldRngClm 
    rng.Column
    '''''  sütun  '''''''''''''''''
    sutun rng.Column
    '''''''''''''''''
    y = y + 1
    yc = yc + 1
    Clm(yc) = rng.ColumnWidth

    charf(yc) = Split(Cells(1, rng.Column).Address, "$")(1)
    clms = clms + Clm(y)
    End If

    '''''  
    hücre adresi  '''''''''''''''''
    adres = Cells(satir, sutun).Address
    '''''''''''''''''
    With rng
    rngV
    (xy) = .Value

    If Left(rngV(xy), 5) = "Error" Then rngV(xy) = "HATA"
    If ThisWorkbook.Sheets(1).[A1] = 1 Then
    ActiveWindow
    .DisplayFormulas True
    rngF
    (xy) = .Text
    ActiveWindow
    .DisplayFormulas False
    Else
    rngF(xy) = WorksheetFunction.Substitute(.Formula","";")
    End If

    '''''  dizi formüller 1 '''''''''''''''''
    If Range(adres).HasFormula True Then
    If Range(adres).HasArray True Then
    rngFD
    (xy) = "dizi"
    Else
    End If
    End If
    '''''  formül olan hücre adresi  '''''''''''''''''
    rngFA(xy) = adres
    ''''''''''''''''''''''''

    rngF(xy) = WorksheetFunction.Substitute(rngF(xy), "<>""«»")
    rngFormat(xy) = .NumberFormat

    '''''  hizalama 1  '''''''''''''''''
    If Range(adres).HorizontalAlignment 1 Then
    h1 
    "left>"
    h2 "right>"
    ElseIf Range(adres).HorizontalAlignment = -4131 Then
    h1 
    "left>"
    h2 "left>"
    ElseIf Range(adres).HorizontalAlignment = -4108 Then
    h1 
    "center>"
    h2 "center>"
    ElseIf Range(adres).HorizontalAlignment = -4152 Then
    h1 
    "right>"
    h2 "right>"
    End If

    rngXX(xy) = h1
    rngYY
    (xy) = h2
    '''''''''''''''''

    aranan1 = Cells(satir, sutun).Font.ColorIndex

    rngClr(x, y) = "#000000"
    For m = 0 To 57
    If aranan1 = deg1(m) Then
    rngClr(x, y) = deg2(m)
    Exit For
    End If
    Next m


    If Err.Number <> 0 Then Err.Clear: rngClr(x, y) = "black"

    aranan2 = Cells(satir, sutun).Interior.ColorIndex
    rngFonClr(x, y) = "#FFFFFF"
    For t = 0 To 57
    If aranan2 = deg1(t) Then
    rngFonClr(x, y) = deg2(t)
    Exit For
    End If
    Next t


    If Err.Number <> 0 Then Err.Clear: rngFonClr(x, y) = "white"
    rngFN(x, y) = .Font.Name
    rngSize(x, y) = Round(.Font.Size / 4.5, 1)
    rngBold(x, y) = .Font.Bold
    rngItalic(x, y) = .Font.Italic
    End With
    If rngF(x, y) <> "" Then
    If Left(rngF(x, y), 1) = "+" Or Left(rngF(x, y), 1) = "=" _
    Or Left(rngF(x, y), 1) = "-" Or Left(rngF(x, y), 1) = "*" Then
    GoTo devam
    Else
    rngF(x, y) = ""
    End If
    End If
    devam:
    Next

    versiyon = "bilinmiyor"
    Select Case Application.Version
    Case "7.0"
    versiyon = "Office 95"
    Case "8.0"
    versiyon = "Office 97"
    Case "9.0"
    versiyon = "Office 2000"
    Case "10.0"
    versiyon = "Office XP"
    Case "11.0"
    versiyon = "Office 2003"
    Case "12.0"
    versiyon = "Office 2007"
    Case "13.0"
    versiyon = "Office 2010"
    Case "14.0"
    versiyon = "Office 2011"
    Case "15.0"
    versiyon = "Office 2013"
    End Select

    Set sistem = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
    For Each isletimsistemi In sistem
    sistemadi = isletimsistemi.Caption
    Next

    Txt = "<table border=1><tr><td align=left valign=center><font size=1 color=red face=verdana><b>" _
    & "Mic.Ofis Versiyonu:</b></font><font size=1 face=verdana> " & versiyon & "  / " & "</font><font size=1 color=red face=verdana><b>İşletim Sistemi Adı:</b></font><font size=1 face=verdana> " & sistemadi & "</font></td></tr><tr valign=top><td>"
    Txt = Txt & "<table border=0 bgcolor=#B0B0B0 cellspacing=1 cellpadding=1 align=center><tr align=center valign=center bgcolor=white>"


    For i = 0 To y
    If i = 0 Then
    Txt = Txt & "<td bgcolor=d4d0c8 align=center><font color=black size=2>+</font></td>"
    Else
    '''''' SÜTUN GENİŞLİĞİ ''''''''''''''
    sutungenisligi = Val(Columns(charf(i)).ColumnWidth * 5.12) & ">"
    Txt = Txt & "<td bgcolor=d4d0c8 width=" & sutungenisligi & "<font color=black size=1 face=verdana>" & charf(i) & "</font></td>" '
    SÜTUN HARFLARI
    '''''''''''''''''''''''''''''''''''''''
    End If
    Next
    Txt = Txt & "</tr>"

    For i = 1 To x
    Txt = Txt & "<tr align=left bgcolor=white height=20>" _
    & "<td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>" & rnum(i) & "</font></td>"
    For j = 1 To y
    '''''  
    hizalama 2  '''''''''''''''''
    bir = rngXX(i, j)
    iki = rngYY(i, j)
    '''''''''''''''''
    '''''  dizi formüller 2 '''''''''''''''''
    If rngF(ij) <> "" And rngFD(ij) = "dizi" Then
    rngF
    (ij) = "Dizi Formül: {" rngF(ij) & "}"
    Else
    End If
    ''''''''''''''''''''''''
    Txt Txt "<td" IIf(rngFonClr(ij) <> "FFFFFF"" bgcolor=" rngFonClr(ij), "") & _
    IIf
    (rngV(ij) <> """ nowrap=true""") & _
    IIf
    (IsNumeric(rngV(ij)), " align=" iki" align=" bir_
    IIf(rngV(ij) <> """<font size=1 color=" rngClr(ij) & " face=verdana>"""_
    IIf(rngBold(ij), "<b>""") & IIf(rngItalic(ij), "<i>""") & _
    IIf
    (rngF(ij) = """""<ACRONYM  title='" rngF(ij) & "'>") & _
    Format
    (rngV(ij), IIf(rngFormat(ij) = "General" Or rngFormat(ij) = "Text" Or rngFormat(ijLike "*" "/" "*""@"rngFormat(ij))) _
    IIf(rngF(ij) = """"" <b>(ƒx)</b></ACRONYM>"_
    IIf(rngItalic(ij), "</i>""") & IIf(rngBold(ij), "</b>"""_
    IIf(rngV(ij) <> """</font></td>""</td>")
    Next
    Txt 
    Txt "</tr>"
    Next
    ''''''

    hücre Selection.Cells.Address
    kodsayfaismi 
    ActiveSheet.CodeName
    sayfabilgileri 
    "Sayfa İsmi: (" ActiveSheet.Name ")-  Kod Sayfası: (" kodsayfaismi ")" " - Hücre Aralığı : (" hücre ")"
    bir "<font size=1 color=red face=verdana><b>Sayfa İsmi:</b></font><font size=1 face=verdana> " ActiveSheet.Name "  / "
    iki bir "<font size=1 color=red face=verdana><b>Kod Sayfası:</b></font><font size=1 face=verdana> " kodsayfaismi "  / "
    sayfabilgileri iki "<font size=1 color=red face=verdana><b>Hücre Aralığı:</b></font><font size=1 face=verdana> " hücre ""
    Txt Txt "</table></td></tr><tr><td bgcolor=f0f8ff align=left><font color=black size=1 face=verdana><b>" sayfabilgileri "</b></font></td></tr></table>"


    If Len(Txt) > 0 Then
    MyDO
    .SetText Txt
    MyDO
    .PutInClipboard
    End 
    If


    Exit 
    Sub
    hata
    :
    MsgBox "Seçtiğiniz bölge A-Z kolonları arasında olmalıdır"
    hata2:
    MsgBox "Seçtiğiniz bölge 200 hücreden fazla"

    End Sub 
    Konu halit3 tarafından (10.05.2015 Saat 15:53 ) değiştirilmiştir.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Bu Konu İçin Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •