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 2. Sayfa BirinciBirinci 12
Toplam 62 sonuçtan 41 ile 62 arasındakiler gösteriliyor.

Konu: ExceltoHTML

  1. #41
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    Office 2011 ve 2013 ü de tanımladım.
    Kullanmak isteyenler linkteki dosyayı indirebilir.
    http://s3.dosya.tc/server29/Ogv5TK/XLtoHTML.rar.html
    Konu erbag tarafından (10.12.2014 Saat 22:32 ) değiştirilmiştir. Sebep: Link güncellendi.

  2. #42
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    Office Ver.: Office 2013
    Windows Ver.: Windows 7 Professional 64-bit
    +E
    8HesapTablosu
    9erbag
    10Deneme
    Sayfa İsmi: Sayfa1 ()
    XLtoHTML v1.2 / OfficeTürkiye - 2014©

  3. #43
    Üye
    Üyelik tarihi
    Oct 2004
    Mesajlar
    60
    Windows 8.1 x64 Tr ve Office 2013 kullanıyorum. XLtoHTML eklentisini nereye yüklemem gerekiyor? Yardımınız için önceden teşekkürler.

  4. #44
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    C:\Program Files (x86)\Microsoft Office\Office15\XLSTART veya;
    C:\Program Files (x86)\Microsoft Office\Office15\STARTUP klasörüne kopyalayın.

  5. #45
    Üye
    Üyelik tarihi
    Oct 2004
    Mesajlar
    60
    Üstadım, iyi geceler. Yukarıda verdiğiniz her iki yolda Office15 içinde anılan klasörler resimde de görüleceği gibi bulunmamaktadır.

    http://s3.dosya.tc/server29/Ezx5lv/s...18_51.jpg.html

  6. #46
    Forum Yöneticisi
    Üyelik tarihi
    Apr 2004
    Nereden
    Kütahya
    Versiyon
    Excel 2010 TR
    Mesajlar
    104
    Merhabalar aas,

    C:\Kullanıcılar(Users)\KullanıcıAdınız\AppData\Roaming\Microsoft\AddIns bu klasöre kopyalayın ve excel'de Geliştirici Sekmesinden Eklentilere gelip XLtoHTML işaretlemeniz gerekir.

    Appdata görmeniz içinde gizli dosyaları gösteri işaretlemeniz gerekir.

    iyi çalışmalar.

  7. #47
    Üye
    Üyelik tarihi
    Oct 2004
    Mesajlar
    60
    Teşekkürler Sayın Mustafa Öztürk.

    Office Ver.: Office 2013
    Windows Ver.: Windows 8.1 Single Language 64 bit
    +ABCDEFGH
    1SıraLokasyonVardiyaMÜŞTERİ ADI SOYADIAra SüreSıra KoordinatSüreAraç Sayısı
    21OSMANGAZİGÜNDÜZ VARDİYASIHALE ÖZBERK97,83 Dk40.194229 29.05176720,0 Dk1
    32NİLÜFERGÜNDÜZ VARDİYASIAYMER ZÜLFİKAR83,43 Dk40.219074 28.941949100,0 Dk1
    43NİLÜFERGÜNDÜZ VARDİYASIERAY BALO19,03 Dk40.224999 28.91224764,4 Dk1
    54NİLÜFERAKŞAM VARDİYASINURAY AKBAL33,43 Dk40.214806 28.9555433,0 Dk2
    65NİLÜFERAKŞAM VARDİYASIEVRİM HEKİM YILDIRAN24,38 Dk40.216129 28.9034422,0 Dk2
    76NİLÜFERAKŞAM VARDİYASIEMEL ÜÇYAZ28,10 Dk40.225825 28.9734623,0 Dk2
    87NİLÜFERAKŞAM VARDİYASIASLI ŞENTÜRK25,55 Dk40.202302 28.95552370,9 Dk2
    Sayfa İsmi: ANASAYFA (Sayfa1)
    XLtoHTML v1.2 / OfficeTürkiye - 2014©
    Konu ass tarafından (15.12.2014 Saat 15:06 ) değiştirilmiştir.

  8. #48
    Yeni Üye
    Üyelik tarihi
    Aug 2010
    Nereden
    ankara
    Mesajlar
    4
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 7 Home Premium 64-bit
    +AB
    2H:\muzaffer yeni\MUZAFFER YARDIMCI\Adsız.jpgAdsız.jpg
    3H:\muzaffer yeni\MUZAFFER YARDIMCI\Applied_Hydrogeology__4th_Edition_.pdfApplied_Hydrogeology__4th_Edition_.pdf
    4H:\muzaffer yeni\MUZAFFER YARDIMCI\AutoCAD KURULUMU VE AYARLAR.txtAutoCAD KURULUMU VE AYARLAR.txt
    5H:\muzaffer yeni\MUZAFFER YARDIMCI\autocat komut harfleri.txtautocat komut harfleri.txt
    6H:\muzaffer yeni\MUZAFFER YARDIMCI\celik_ins.kons.detay.pdfcelik_ins.kons.detay.pdf
    7H:\muzaffer yeni\MUZAFFER YARDIMCI\celik_yapi_standart..pdfcelik_yapi_standart..pdf
    8H:\muzaffer yeni\MUZAFFER YARDIMCI\civata agırlık tablosu-YARIM DİŞ.jpgcivata agırlık tablosu-YARIM DİŞ.jpg
    9H:\muzaffer yeni\MUZAFFER YARDIMCI\civata boyu hesabı.pdfcivata boyu hesabı.pdf
    10H:\muzaffer yeni\MUZAFFER YARDIMCI\JEM 410-Kuyu hidroliği.pptJEM 410-Kuyu hidroliği.ppt
    11H:\muzaffer yeni\MUZAFFER YARDIMCI\kaplin.pdfkaplin.pdf
    12H:\muzaffer yeni\MUZAFFER YARDIMCI\KAPLİNLER.pdfKAPLİNLER.pdf
    13H:\muzaffer yeni\MUZAFFER YARDIMCI\Korugan - Lüzumsuz Bilgiler Ansiklopedisi 1[1][1].pdfKorugan - Lüzumsuz Bilgiler Ansiklopedisi 1[1][1].pdf
    14H:\muzaffer yeni\MUZAFFER YARDIMCI\Lmanyak_Kotu_Kedi_Sero_1.pdfLmanyak_Kotu_Kedi_Sero_1.pdf
    15H:\muzaffer yeni\MUZAFFER YARDIMCI\Lmanyak_Kotu_Kedi_Sero_2.pdfLmanyak_Kotu_Kedi_Sero_2.pdf
    16H:\muzaffer yeni\MUZAFFER YARDIMCI\NSK-Rulman-Katalogu.pdfNSK-Rulman-Katalogu.pdf
    17H:\muzaffer yeni\MUZAFFER YARDIMCI\pdf2dwg.exepdf2dwg.exe
    18H:\muzaffer yeni\MUZAFFER YARDIMCI\Robinson Crusoe ve Cuma - 10.Yil.pdfRobinson Crusoe ve Cuma - 10.Yil.pdf
    19H:\muzaffer yeni\MUZAFFER YARDIMCI\somun+civata teknik bilgileri.odtsomun+civata teknik bilgileri.odt
    20H:\muzaffer yeni\MUZAFFER YARDIMCI\STAHLBAU PROFILE.pdfSTAHLBAU PROFILE.pdf
    21H:\muzaffer yeni\MUZAFFER YARDIMCI\Stahlbau-Profile 15 Auflage 1982.pdfStahlbau-Profile 15 Auflage 1982.pdf
    22H:\muzaffer yeni\MUZAFFER YARDIMCI\Teknik_Terimler_Sozlugu_Ingilizce.pdfTeknik_Terimler_Sozlugu_Ingilizce.pdf
    23H:\muzaffer yeni\MUZAFFER YARDIMCI\trkh-yeni1-1.jpgtrkh-yeni1-1.jpg
    24H:\muzaffer yeni\MUZAFFER YARDIMCI\ÇELİK KONSTRÜKSİYON YAPILARDA PROJE HAZIRLAMA-ÇİZİM KURALLARI-STANDARTLAR.pdfÇELİK KONSTRÜKSİYON YAPILARDA PROJE HAZIRLAMA-ÇİZİM KURALLARI-STANDARTLAR.pdf
    25H:\muzaffer yeni\MUZAFFER YARDIMCI\AGIRLIK HESAPLAMA\-2. faz.xls-2. faz.xls (ƒx)
    Sayfa İsmi: Sayfa1 (Sayfa1)
    XLtoHTML v1.2 / OfficeTürkiye - 2014©

  9. #49
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    Alıntı ass Nickli Üyeden Alıntı Mesajı göster
    Üstadım, iyi geceler. Yukarıda verdiğiniz her iki yolda Office15 içinde anılan klasörler resimde de görüleceği gibi bulunmamaktadır.
    http://s3.dosya.tc/server29/Ezx5lv/s...18_51.jpg.html
    Siz sanırım 64 bit Office kullanıyorsunuz, buy sebeple C:\Program Files\Microsoft Office\Office15 adresine bakmalısınız.
    Siz 32 bit tarafına bakıyorsunuz.(C:\Program Files (x86)
    Sanırım konu anlaşıldı.

  10. #50
    Yeni Üye
    Üyelik tarihi
    Mar 2015
    Mesajlar
    3
    Excel 2013 x64 ve Windows 8.1 x64 kullanıyorum. Eklentiyi eklediğimde aşağıdaki şekilde hata mesajı veriyor.

    Compile error:
    The code in this Project must be updated for use on 64-bit systems.
    Please review and update Declare statements and then mark them with the PtrSafe attribute.

    Nasıl çözebileceğim konusunda yardımlarınızı bekliyorum.

  11. #51
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    683
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 7 Home Basic 64-bit
    +AB
    14 (ƒx)evren (ƒx)
    2TestTestere
    Sayfa İsmi: Sayfa1 ()
    XLtoHTML v1.2 / OfficeTürkiye - 2014©

  12. #52
    Kıdemli Üye
    Üyelik tarihi
    Apr 2012
    Nereden
    Aksaray
    Versiyon
    2013 Türkçe
    Mesajlar
    174
    Alıntı chimaera Nickli Üyeden Alıntı Mesajı göster
    Excel 2013 x64 ve Windows 8.1 x64 kullanıyorum. Eklentiyi eklediğimde aşağıdaki şekilde hata mesajı veriyor.

    Compile error:
    The code in this Project must be updated for use on 64-bit systems.
    Please review and update Declare statements and then mark them with the PtrSafe attribute.

    Nasıl çözebileceğim konusunda yardımlarınızı bekliyorum.
    Kod sayfasına gelin,
    PHP- Kodu:
    Declare Function 
    yazan kelimeleri Declare PtrSafe Function olarak değiştirin.
    Ayrıca kod satırlarının sonunda As Long yazar, yerine As Longptr yazın.
    Sorununuz çözülecektir.

  13. #53
    Üye
    Üyelik tarihi
    May 2015
    Nereden
    ankara
    Versiyon
    2013
    Mesajlar
    52
    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long

    HATASI VERİYOR ofice 2010 windows 7 kullanıyorum.

  14. #54
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    991
    Mrb,
    Aynı linkteki 37,38 ve 39 nolu mesajları okur musunuz?

  15. #55
    Yeni Üye
    Üyelik tarihi
    Jan 2016
    Mesajlar
    5
    Deneme
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 8.1 Single Language 64 bit
    +ABCDEFGHIJKLM
    2GünlerKişilerDers SaatiAli GünaydınMert ÇoşkunMesut SabahGül GünceMert KoşanÜmit GüneşAslı KonDerya Sabah
    31Ali Günaydın, Mert Coşkun, Mesut Sabah81888
    42Gül Günce, Mert Koşan, Mert Coşkun72777
    53Ümit Güneş, Aslı Kon, Derya Sabah63666
    64Ali Günaydın, Gül Günce, Aslı Kon94999
    75Mert Coşkun, Mesut Sabah, Aslı Kon, Gül Günce858888
    8
    9TOPLAM17 (ƒx)23 (ƒx)16 (ƒx)24 (ƒx)7 (ƒx)6 (ƒx)23 (ƒx)6 (ƒx)
    10Ali Günaydın (ƒx)Mert Çoşkun (ƒx)Mesut Sabah (ƒx)Gül Günce (ƒx)Mert Koşan (ƒx)Ümit Güneş (ƒx)Aslı Kon (ƒx)Derya Sabah (ƒx)
    Sayfa İsmi: Sayfa1 ()
    XLtoHTML v1.2 / OfficeTürkiye - 2014©


    Oldu, teşekkürler

  16. #56
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    247
    Gönderen XL Ver.: Office 2003 / OS Ver.: Microsoft Windows XP Professional
    +ABCDEFGHIJKLMNOPQRSTU
    1InteriorFontHTMLREDGREENBLUECOLORExcel Color Index
    20 (ƒx)[Color 0]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 0]
    31 (ƒx)[Color 1]#0000000 (ƒx)0 (ƒx)0 (ƒx)[Color 1]153525149115556
    42 (ƒx)[Color 2]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 2]94612101454716
    53 (ƒx)[Color 3]#FF0000255 (ƒx)0 (ƒx)0 (ƒx)[Color 3]345435042411348
    64 (ƒx)[Color 4]#00FF000 (ƒx)255 (ƒx)0 (ƒx)[Color 4]744648335415
    75 (ƒx)[Color 5]#0000FF0 (ƒx)0 (ƒx)255 (ƒx)[Color 5]384036353437382
    Sayfa İsmi: Color Index and Palet / Kod Sayfası: Sheet1 / Hücre Aralığı: $A$1:$U$7
    Konu halit3 tarafından (10.04.2016 Saat 16:29 ) değiştirilmiştir.

  17. #57
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    247

    deneme

    Yukarıdaki tabloya ait kod
    Kullanılışı makroyu bir modülün içine kopyalayın ve bir komut düğmesine bağlayın mause ile belli bir hücre aralığını seçin ve komut düğmesine basın komut düğmesi arka planda kopyalama işlemi yapmış oluyor sonrada buradaki web sitesine yapıştırı.

    Kod:
    Sub HTML5()
    Dim Txt, versiyon As String
    
    Dim rng As Range
    
    son1 = 999
    
    ReDim rngV(son1, son1): ReDim rngF(son1, son1): ReDim rngFormat(son1, son1)
    ReDim rngClr(son1, son1): ReDim rngFonClr(son1, son1): ReDim rngFN(son1, son1)
    ReDim rngValign(son1, son1): ReDim rngBold(son1, son1): ReDim rngItalic(son1, son1)
    ReDim rngSize(son1, son1): ReDim rngHalign(son1, son1)
    ReDim charf(son1): ReDim rnum(son1): ReDim Clm(son1): ReDim Row(son1)
    
    Dim clms, rows, oldRngRow, oldRngClm, x, y, yc As Integer
    
    Application.ScreenUpdating = False
    
    For Each rng In ActiveWindow.RangeSelection.Cells
    
    
    If rng.Row > oldRngRow Then
    oldRngRow = rng.Row
    satir = rng.Row
    
    x = x + 1
    y = 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
    sutun = rng.Column
    y = y + 1
    yc = yc + 1
    Clm(yc) = rng.ColumnWidth
    charf(y) = Split(rng.Address, "$")(1)
    
    clms = clms + Clm(y)
    
    End If
    
    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")
    
    'On Error Resume Next
    With rng
    rngV(x, y) = .Value
    
    
    If Left(rngV(x, y), 5) = "Error" Then rngV(x, y) = "HATA"
    If ThisWorkbook.Sheets(ActiveSheet.Name).[A1] = 1 Then
    ActiveWindow.DisplayFormulas = True
    rngF(x, y) = .Text
    ActiveWindow.DisplayFormulas = False
    Else
    rngF(x, y) = WorksheetFunction.Substitute(.Formula, ",", ";")
    End If
    rngF(x, y) = WorksheetFunction.Substitute(rngF(x, y), "<>", "«»")
    rngFormat(x, y) = .NumberFormat
    
    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"
    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 = "
    " _ & "Gönderen XL Ver.: " & versiyon & " / OS Ver.: " & sistemadi & "
    " Txt = Txt & "" For i = 0 To y If i = 0 Then Txt = Txt & "" Else Txt = Txt & "" End If Next Txt = Txt & "" For i = 1 To x Txt = Txt & "" _ & "" For j = 1 To y bir = "right>" iki = "center>" Txt = Txt & " "FFFFFF", " bgcolor=" & rngFonClr(i, j), "") & _ IIf(rngV(i, j) <> "", " nowrap=true", "") & _ IIf(IsNumeric(rngV(i, j)), " align=" & bir, " align=" & bir) & _ IIf(rngV(i, j) <> "", "", "") & _ IIf(rngBold(i, j), "", "") & IIf(rngItalic(i, j), "", "") & _ IIf(rngF(i, j) = "", "", "") & Format(rngV(i, j), IIf(rngFormat(i, j) = "General" Or rngFormat(i, j) = "Text" Or rngFormat(i, j) Like "*" & "/" & "*", "@", rngFormat(i, j))) & _ IIf(rngF(i, j) = "", "", " (ƒx)") & _ IIf(rngItalic(i, j), "", "") & _ IIf(rngBold(i, j), "", "") & _ IIf(rngV(i, j) <> "", "", "") Next Txt = Txt & "" Next hücre = ActiveWindow.RangeSelection.Address kodsayfaismi = ActiveSheet.CodeName sayfabilgileri = "Sayfa İsmi: (" & ActiveSheet.Name & ")- Kod Sayfası: (" & kodsayfaismi & ")" & " - Hücre Aralığı : (" & hücre & ")" ek1 = "Sayfa İsmi: " & ActiveSheet.Name & " / " ek2 = ek1 & "Kod Sayfası: " & kodsayfaismi & " / " sayfabilgileri = ek2 & "Hücre Aralığı: " & hücre & "" Txt = Txt & "
    +" & charf(i) & "
    " & rnum(i) & "
    " & sayfabilgileri & "
    " Dim MyDO As New DataObject If Len(Txt) > 0 Then If Len(Txt) > 30000 Then MsgBox Len(Txt) & " harf var" & Chr(10) & "30000 harften büyük olmayacak tablo seçimi yapınız.", vbApplicationModal, "Bilgilendirme!" Else MsgBox "İşlem tamam." & Chr(10) & Chr(10) & Len(Txt) & " harf var" & Chr(10) & Chr(10) & "30000 harften Küçük olduğundan hüre eklenebilir.", vbApplicationModal, "Bilgilendirme!" MyDO.SetText Txt MyDO.PutInClipboard End If End If End Sub
    Konu halit3 tarafından (10.04.2016 Saat 16:33 ) değiştirilmiştir.

  18. #58
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    247
    deneme yapıyorum

    Office versiyon : Office 2003
    Windows versiyon : Microsoft Windows XP Professional.

    +ABCDEFGHIJKLMNOPQRSTU
    1InteriorFontHTMLREDGREENBLUECOLORExcel Color Index
    20 (ƒx)[Color 0]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 0]
    31 (ƒx)[Color 1]#0000000 (ƒx)0 (ƒx)0 (ƒx)[Color 1]153525149115556
    42 (ƒx)[Color 2]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 2]94612101454716
    53 (ƒx)[Color 3]#FF0000255 (ƒx)0 (ƒx)0 (ƒx)[Color 3]345435042411348
    64 (ƒx)[Color 4]#00FF000 (ƒx)255 (ƒx)0 (ƒx)[Color 4]744648335415
    75 (ƒx)[Color 5]#0000FF0 (ƒx)0 (ƒx)255 (ƒx)[Color 5]384036353437382
    Konu halit3 tarafından (10.04.2016 Saat 16:36 ) değiştirilmiştir.

  19. #59
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    247
    Yukarıdaki tabloya ait kod
    Kullanılışı makroyu bir modülün içine kopyalayın ve bir komut düğmesine bağlayın mause ile belli bir hücre aralığını seçin ve komut düğmesine basın komut düğmesi arka planda kopyalama işlemi yapmış oluyor sonrada buradaki web sitesine yapıştırı.

    Kod:
    Sub deneme123()
    
    son1 = 999
    
    
    ReDim rngV(son1, son1): ReDim rngF(son1, son1): ReDim rngFormat(son1, son1)
    ReDim rngSize(son1, son1): ReDim rngduz(son1, son1)
    ReDim charf(son1): ReDim rnum(son1): ReDim Clm(son1)
    
    Dim oldRngRow, oldRngClm, x, y As Integer
    
    Application.ScreenUpdating = False
    
    For Each rng In ActiveWindow.RangeSelection.Cells
    
    If rng.Row > oldRngRow Then
    oldRngRow = rng.Row
    x = x + 1
    y = 0
    oldRngClm = 0
    rnum(x) = rng.Row
    End If
    
    If rng.Column > oldRngClm Then
    oldRngClm = rng.Column
    y = y + 1
    Clm(y) = rng.ColumnWidth
    charf(y) = Split(rng.Address, "$")(1)
    
    End If
    
    
    rngV(x, y) = rng.Value
    
    If Left(rngV(x, y), 5) = "Error" Then rngV(x, y) = "HATA"
    
    rngF(x, y) = WorksheetFunction.Substitute(rng.Formula, ",", ";")
    rngF(x, y) = WorksheetFunction.Substitute(rngF(x, y), "<>", "«»")
    rngFormat(x, y) = rng.NumberFormat
    
    
    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"
    End Select
    
    
    Set sistem = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
    For Each isletimsistemi In sistem
    sistemadi = isletimsistemi.Caption
    Next
    
    bir1 = "

    Office versiyon : " & versiyon & " Windows versiyon : " & sistemadi & ".

    " Txt1 = "" Txt1 = Txt1 & "" For i = 0 To y If i = 0 Then Txt1 = Txt1 & "" Else Txt1 = Txt1 & "" End If Next Txt1 = Txt1 & "" For i = 1 To x Txt1 = Txt1 & "" & "" For j = 1 To y Txt1 = Txt1 & " "", " ", "") & _ IIf(IsNumeric(rngV(i, j)) = False Or IsNumeric(rngV(i, j)) = True, " ", "") & _ IIf(rngV(i, j) <> "", "", "") & _ IIf(rngF(i, j) = "", "", "") & Format(rngV(i, j), _ IIf(rngFormat(i, j) = "General" Or rngFormat(i, j) = "Text" Or rngFormat(i, j) Like "*" & "/" & "*", "@", rngFormat(i, j))) & _ IIf(rngF(i, j) = "", "", " (ƒx)") Txt1 = Txt1 & "" Next Txt1 = Txt1 & "" Next Txt1 = Txt1 & "
    +" & charf(i) & "
    " & rnum(i) & "
    " & "" & "" Txt1 = bir1 & Txt1 Dim MyDO As New DataObject If Len(Txt1) > 0 Then If Len(Txt1) > 30000 Then MsgBox Len(Txt1) & " harf var" & Chr(10) & "30000 harften büyük olmayacak tablo seçimi yapınız.", vbApplicationModal, "Bilgilendirme!" Else MsgBox "İşlem tamam." & Chr(10) & Chr(10) & Len(Txt1) & " harf var" & Chr(10) & Chr(10) & "30000 harften Küçük olduğundan hüre eklenebilir.", vbApplicationModal, "Bilgilendirme!" MyDO.SetText Txt1 MyDO.PutInClipboard End If End If End Sub
    Konu halit3 tarafından (10.04.2016 Saat 16:40 ) değiştirilmiştir.

  20. #60
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    247
    Gönderen XL Ver.: Office 2007 / OS Ver.: Microsoft Windows 7 Ultimate
    +ABCDEFGHIJKLMNOPQRSTU
    1InteriorFontHTMLREDGREENBLUECOLORExcel Color Index
    20 (ƒx)[Color 0]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 0]
    31 (ƒx)[Color 1]#0000000 (ƒx)0 (ƒx)0 (ƒx)[Color 1]153525149115556
    42 (ƒx)[Color 2]#FFFFFF255 (ƒx)255 (ƒx)255 (ƒx)[Color 2]94612101454716
    53 (ƒx)[Color 3]#FF0000255 (ƒx)0 (ƒx)0 (ƒx)[Color 3]345435042411348
    64 (ƒx)[Color 4]#00FF000 (ƒx)255 (ƒx)0 (ƒx)[Color 4]744648335415
    75 (ƒx)[Color 5]#0000FF0 (ƒx)0 (ƒx)255 (ƒx)[Color 5]384036353437382
    Sayfa İsmi: Color Index and Palet / Kod Sayfası: Sheet1 / Hücre Aralığı: $A$1:$U$7



    kod:
    Kod:
    Sub HTML5()
    Dim Txt, versiyon As String
    
    Dim rng As Range
    
    son1 = 999
    
    ReDim rngV(son1, son1): ReDim rngF(son1, son1): ReDim rngFormat(son1, son1)
    ReDim rngClr(son1, son1): ReDim rngFonClr(son1, son1): ReDim rngFN(son1, son1)
    ReDim rngValign(son1, son1): ReDim rngBold(son1, son1): ReDim rngItalic(son1, son1)
    ReDim rngSize(son1, son1): ReDim rngHalign(son1, son1)
    ReDim charf(son1): ReDim rnum(son1): ReDim Clm(son1): ReDim Row(son1)
    
    Dim clms, rows, oldRngRow, oldRngClm, x, y, yc As Integer
    
    Application.ScreenUpdating = False
    
    For Each rng In ActiveWindow.RangeSelection.Cells
    
    
    If rng.Row > oldRngRow Then
    oldRngRow = rng.Row
    satir = rng.Row
    
    x = x + 1
    y = 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
    sutun = rng.Column
    y = y + 1
    yc = yc + 1
    Clm(yc) = rng.ColumnWidth
    charf(y) = Split(rng.Address, "$")(1)
    
    clms = clms + Clm(y)
    
    End If
    
    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")
    
    'On Error Resume Next
    With rng
    rngV(x, y) = .Value
    
    
    If Left(rngV(x, y), 5) = "Error" Then rngV(x, y) = "HATA"
    If ThisWorkbook.Sheets(ActiveSheet.Name).[A1] = 1 Then
    ActiveWindow.DisplayFormulas = True
    rngF(x, y) = .Text
    ActiveWindow.DisplayFormulas = False
    Else
    rngF(x, y) = WorksheetFunction.Substitute(.Formula, ",", ";")
    End If
    rngF(x, y) = WorksheetFunction.Substitute(rngF(x, y), "<>", "«»")
    rngFormat(x, y) = .NumberFormat
    
    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"
    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 = "
    " _ & "Gönderen XL Ver.: " & versiyon & " / OS Ver.: " & sistemadi & "
    " Txt = Txt & "" For i = 0 To y If i = 0 Then Txt = Txt & "" Else Txt = Txt & "" End If Next Txt = Txt & "" For i = 1 To x Txt = Txt & "" _ & "" For j = 1 To y bir = "right>" iki = "center>" Txt = Txt & " "FFFFFF", " bgcolor=" & rngFonClr(i, j), "") & _ IIf(rngV(i, j) <> "", " nowrap=true", "") & _ IIf(IsNumeric(rngV(i, j)), " align=" & bir, " align=" & bir) & _ IIf(rngV(i, j) <> "", "", "") & _ IIf(rngBold(i, j), "", "") & IIf(rngItalic(i, j), "", "") & _ IIf(rngF(i, j) = "", "", "") & Format(rngV(i, j), IIf(rngFormat(i, j) = "General" Or rngFormat(i, j) = "Text" Or rngFormat(i, j) Like "*" & "/" & "*", "@", rngFormat(i, j))) & _ IIf(rngF(i, j) = "", "", " (ƒx)") & _ IIf(rngItalic(i, j), "", "") & _ IIf(rngBold(i, j), "", "") & _ IIf(rngV(i, j) <> "", "", "") Next Txt = Txt & "" Next hücre = ActiveWindow.RangeSelection.Address kodsayfaismi = ActiveSheet.CodeName sayfabilgileri = "Sayfa İsmi: (" & ActiveSheet.Name & ")- Kod Sayfası: (" & kodsayfaismi & ")" & " - Hücre Aralığı : (" & hücre & ")" ek1 = "Sayfa İsmi: " & ActiveSheet.Name & " / " ek2 = ek1 & "Kod Sayfası: " & kodsayfaismi & " / " sayfabilgileri = ek2 & "Hücre Aralığı: " & hücre & "" Txt = Txt & "
    +" & charf(i) & "
    " & rnum(i) & "
    " & sayfabilgileri & "
    " Dim MyDO As New DataObject If Len(Txt) > 0 Then If Len(Txt) > 30000 Then MsgBox Len(Txt) & " harf var" & Chr(10) & "30000 harften büyük olmayacak tablo seçimi yapınız.", vbApplicationModal, "Bilgilendirme!" Else MsgBox "İşlem tamam." & Chr(10) & Chr(10) & Len(Txt) & " harf var" & Chr(10) & Chr(10) & "30000 harften Küçük olduğundan hüre eklenebilir.", vbApplicationModal, "Bilgilendirme!" MyDO.SetText Txt MyDO.PutInClipboard End If End If End Sub

  21. #61
    Yeni Üye
    Üyelik tarihi
    Oct 2016
    Nereden
    Antalya
    Versiyon
    Excel 2013
    Mesajlar
    5
    DENEME

    Office Ver.: bilinmiyor
    Windows Ver.: Windows 8.1 Single Language 64 bit
    +ABCDEFGHIJK
    112 (ƒx)3 (ƒx)4 (ƒx)5 (ƒx)6 (ƒx)7 (ƒx)8 (ƒx)9 (ƒx)10 (ƒx)
    2A
    3B
    4C
    5D
    6E
    7F
    8G
    9H
    10I
    11J
    Sayfa İsmi: Sayfa1 ()
    XLtoHTML v1.2 / OfficeTürkiye - 2014©


    Galiba bu sefer oldu. Emeği geçenlere çok teşekkür ederim.
    Konu hasanyolcu tarafından (15.10.2016 Saat 14:48 ) değiştirilmiştir.

  22. #62
    Kıdemli Üye
    Üyelik tarihi
    Sep 2013
    Nereden
    İstanbul
    Versiyon
    Ofis-2010 Türkçe
    Mesajlar
    503
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 7 Home Premium 32-bit
    +CDEF
    325.10.2014İstanbul28.10.2014 (ƒx)Salı (ƒx)
    425.10.2014Ankara29.10.2014 (ƒx)Çarşamba (ƒx)
    525.10.2014İzmir29.10.2014 (ƒx)Çarşamba (ƒx)
    Sayfa İsmi: onüç (Sayfa14)
    XLtoHTML v1.2 / OfficeTürkiye - 2014©
    Konu ataköylü-59 tarafından (14.06.2017 Saat 12:52 ) 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
  •