spreadsheet de sayfaı renkleriyle birlikte göruntuleme

[honestguy25]

arkdaşlar spreadsheete sayfadan veri alıyorum bir tablo benim tablom farklı renklerden oluşuyor. spreadsheet renklerı algılamıyor bunun için nasıl bir kod ve nereye yazmam gerekiyor acaba? teşekkurler

 

[Ferhat Pazarçevirdi]

Farklı renkteki tablo derken; Hücre içi renkten mi, hücre çerçevesi renginden mi, font renginden mi bahsediyorsunuz?

 

[honestguy25]

hücre içi rengklı

 

[Ferhat Pazarçevirdi]

OWC10'a göre oluşturulmuş örnek ektedir.

Eğer sizde OWC10 yerine OWC11 yüklü ise, örnek çalışmaz (Bu hata, OWC10 referansı kullandığımdan kaynaklanır). Ama kodlar OWC11 için de geçerlidir. OWC11 nesnesine de aynen uygulanabilir.

Option Explicit
Private Sub UserForm_Initialize()
    Dim hcr As Range
    Dim rgExcel As Range
    Set rgExcel = Range("A1:E15")
    With Spreadsheet1
        With .ActiveSheet
            For Each hcr In rgExcel
                .Range(hcr.Address) = hcr
                .Range(hcr.Address).Interior.ColorIndex = hcr.Interior.ColorIndex
            Next
        End With
    End With
    Set rgExcel = Nothing
End Sub

 

[honestguy25]

bende 11 yuklu herhangi bir değişiklik yapmam gerekirmi ? bırde spreadsheetde bazı hucrelerin ıçını renklendırcem kayıt ederken beyazmı kaydeder yksa renklı mı kaydeder acaba?

 

[honestguy25]

çok pardon 2 tane daha sorm var bu konuda bu başta gelen mesaj var spreadsheetden dolayı bunun ıcın bır kod verılmış forumda bu kodu nereye gırmem gerekıyor acaba? kodunuz çalıştı bende bu arada teşekurler

 

[honestguy25]

birde kıymetlı hocam spreadsheetden sayfaya veri guncelledıımde formullerı yok etti sayfadakı mevcut formulleri nasıl koruyabılıriz?

 

[Ferhat Pazarçevirdi]

Spreadsheet'den sayfaya veri aktarırken hangi kodları kullanıyorsunuz?

 

[honestguy25]

Private Sub CommandButton1_Click()
Spreadsheet1.[a1].CurrentRegion.Copy
Sheets("ödemetakip").Select
[a:x].Delete
[a1].PasteSpecial
[a1].Select
Sheets("ödemetakip").[a:x].EntireColumn.AutoFit
End Sub