Excel 2019'da düzensiz çalışan kod.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel 2019'da düzensiz çalışan kod.

İleti#1)  talebeyim » 31 Mar 2020 08:14

Değerli arkadaşlar
Benim Aşağıdaki gibi bir kodum var. Fakat Office 2019 Kullanmaya başladığımdan bu yana kod çalışıyor ama oluşan tabloda kenarlılıklar kayboluyor. Ne yapacağımı bilemedim Ama eski ve yeni versiyonlara ait bir resim paylaşıyorum.


Kod: Tümünü seç
Sub cogalt()
'Sheet sayılarını sayar, En son sheetin üzerine +1 ilave eder.

Application.ScreenUpdating = False
ActiveSheet.Copy before:=ActiveSheet
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveSheet.DrawingObjects.Select
    Selection.Delete
ActiveSheet.Name = Format(Now - 1, "dd" + "." + "mm")
Application.ScreenUpdating = True
End Sub


Eski Versiyon Excel

Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.




2019 Versiyon Excel

Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.


Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Excel 2019'da düzensiz çalışan kod.

İleti#2)  vkonca » 31 Mar 2020 09:02

Kod: Tümünü seç
Range("A1:I5000").BorderAround Weight:=xlHairline


En Basitinden bu kodu senin kodlarının en altına ekle işini görücektir.
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Cevap: Excel 2019'da düzensiz çalışan kod.

İleti#3)  talebeyim » 31 Mar 2020 09:29

vkonca yazdı:
Kod: Tümünü seç
Range("A1:I5000").BorderAround Weight:=xlHairline


En Basitinden bu kodu senin kodlarının en altına ekle işini görücektir.


Denedim ama pek değişen bir şey olmadı maalesef.
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Cevap: Cevap: Excel 2019'da düzensiz çalışan kod.

İleti#4)  vkonca » 31 Mar 2020 09:50

talebeyim yazdı:
vkonca yazdı:
Kod: Tümünü seç
Range("A1:I5000").BorderAround Weight:=xlHairline


En Basitinden bu kodu senin kodlarının en altına ekle işini görücektir.


Denedim ama pek değişen bir şey olmadı maalesef.


Pardon o kodun çalışma prensibi başka türlü tüm alanlara yapmak için aşağıdaki kodu deneyin.

Kod: Tümünü seç
Dim kenarlik As Range
    Set kenarlik = Range("A1:I500")
    With kenarlik.Borders
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Cevap: Excel 2019'da düzensiz çalışan k

İleti#5)  talebeyim » 31 Mar 2020 09:57

vkonca yazdı:
talebeyim yazdı:
vkonca yazdı:
Kod: Tümünü seç
Range("A1:I5000").BorderAround Weight:=xlHairline


En Basitinden bu kodu senin kodlarının en altına ekle işini görücektir.


Denedim ama pek değişen bir şey olmadı maalesef.


Pardon o kodun çalışma prensibi başka türlü tüm alanlara yapmak için aşağıdaki kodu deneyin.

Kod: Tümünü seç
Dim kenarlik As Range
    Set kenarlik = Range("A1:I500")
    With kenarlik.Borders
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With



vkonca evet bu kenarlılık atadı, Fakat Eski versiyona dikkat ederseniz, Kopyaladığı sayfadaki yazı karakterlerini renklerini koruyarak kopyalama yapıyor.

Bu kod ile biz sadece kenarlılık atamış olduk.
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Cevap: Cevap: Cevap: Cevap: Excel 2019'da düzensiz ça

İleti#6)  vkonca » 31 Mar 2020 11:26

Sütun ve satırları görecek şekilde eskisinden bir resim atabilir misin yardımcı olayım.
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Excel 2019'da düze

İleti#7)  talebeyim » 31 Mar 2020 11:38

vkonca yazdı:Sütun ve satırları görecek şekilde eskisinden bir resim atabilir misin yardımcı olayım.


Resim

PivotTable'den Oluşan Tablonun, Kodla kopyalamadan önceki İlk Hali, Eski office Versiyonundaki ve yeni office versiyonundaki hali.
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Excel 2019'

İleti#8)  vkonca » 31 Mar 2020 12:32

talebeyim yazdı:
vkonca yazdı:Sütun ve satırları görecek şekilde eskisinden bir resim atabilir misin yardımcı olayım.


Resim

PivotTable'den Oluşan Tablonun, Kodla kopyalamadan önceki İlk Hali, Eski office Versiyonundaki ve yeni office versiyonundaki hali.


Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
Range("H4:H50000").Font.Bold = True
Range("I4:I50000").Font.Bold = True
Range("A1:A50000").Font.Bold = True
Range("B1:B50000").Font.Bold = True
Range("A1:A50000").Font.Color = vbRed


yukarıdaki kodlar işinizi görecektir. Deneme yapabilir misiniz? kenarlık için verdiğim kodların alt satırına bunları yapıştırın.
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Exce

İleti#9)  vkonca » 31 Mar 2020 13:12

Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
Range("H4:H50000").Font.Bold = True
Range("I4:I50000").Font.Bold = True
Range("A1:A50000").Font.Bold = True
Range("B1:B50000").Font.Bold = True
Range("I1:I50000").Font.Color = vbRed

Kodu yanlış yazmışım tekrar düzelttim. En günceli budur.
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Ceva

İleti#10)  talebeyim » 31 Mar 2020 13:17

vkonca yazdı:
Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
Range("H4:H50000").Font.Bold = True
Range("I4:I50000").Font.Bold = True
Range("A1:A50000").Font.Bold = True
Range("B1:B50000").Font.Bold = True
Range("I1:I50000").Font.Color = vbRed

Kodu yanlış yazmışım tekrar düzelttim. En günceli budur.


Kenarlılıklar A sütunun en son dolu hücresine kadar olsun.
H ve I sütunları ise rakamlar nokta ile ayrılmış olsun örn: 5692 yerine 5.692 gibi.
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Ceva

İleti#11)  vkonca » 31 Mar 2020 15:23

talebeyim yazdı:
vkonca yazdı:
Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
Range("H4:H50000").Font.Bold = True
Range("I4:I50000").Font.Bold = True
Range("A1:A50000").Font.Bold = True
Range("B1:B50000").Font.Bold = True
Range("I1:I50000").Font.Color = vbRed

Kodu yanlış yazmışım tekrar düzelttim. En günceli budur.


Kenarlılıklar A sütunun en son dolu hücresine kadar olsun.
H ve I sütunları ise rakamlar nokta ile ayrılmış olsun örn: 5692 yerine 5.692 gibi.

Size verdiğim tüm kodları silip aşağıdakileri komple yapıştırın istediğiniz olacaktır.

Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
    Range("H4:H50000").Font.Bold = True
    Range("I4:I50000").Font.Bold = True
    Range("A1:A50000").Font.Bold = True
    Range("B1:B50000").Font.Bold = True
    Range("A1:A50000").Font.Color = vbRed
    SonDoluHucre = Range("A50000").End(3).Row
   
    Dim kenarlik As Range
    Set kenarlik = Range("A1:I" & SonDoluHucre)
    With kenarlik.Borders
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With
   
    Range("H4:I" & SonDoluHucre).NumberFormat = "#,##0"
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Ceva

İleti#12)  talebeyim » 31 Mar 2020 15:32

vkonca yazdı:
talebeyim yazdı:
vkonca yazdı:
Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
Range("H4:H50000").Font.Bold = True
Range("I4:I50000").Font.Bold = True
Range("A1:A50000").Font.Bold = True
Range("B1:B50000").Font.Bold = True
Range("I1:I50000").Font.Color = vbRed

Kodu yanlış yazmışım tekrar düzelttim. En günceli budur.


Kenarlılıklar A sütunun en son dolu hücresine kadar olsun.
H ve I sütunları ise rakamlar nokta ile ayrılmış olsun örn: 5692 yerine 5.692 gibi.

Size verdiğim tüm kodları silip aşağıdakileri komple yapıştırın istediğiniz olacaktır.

Kod: Tümünü seç
Range("A3:I3").Font.Bold = True
    Range("H4:H50000").Font.Bold = True
    Range("I4:I50000").Font.Bold = True
    Range("A1:A50000").Font.Bold = True
    Range("B1:B50000").Font.Bold = True
    Range("A1:A50000").Font.Color = vbRed
    SonDoluHucre = Range("A50000").End(3).Row
   
    Dim kenarlik As Range
    Set kenarlik = Range("A1:I" & SonDoluHucre)
    With kenarlik.Borders
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With
   
    Range("H4:I" & SonDoluHucre).NumberFormat = "#,##0"


Dostum çok teşekkür ederim. Tekirdağ a selamlar
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 20:25
Meslek: Özel Sektör
Yaş: 43
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Excel 2019'da düzensiz çalışan kod.

İleti#13)  vkonca » 31 Mar 2020 15:33

Yardımcı olabiliysem ne mutlu bana iyi çalışmalar :)
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Yandex[Bot] ve 0 misafir

cron
Bumerang - Yazarkafe