1 sayfadan 2 sayfaya veri çekmek ve makro ile otomatik satır sutun genişligi

[turgayzeynep]

Excel'den 1 sayfadan 2 sayfaya veri çekimi yaptım fakat çekmiş olduğum veriler otomatik olarak satır ve sütunların genişlemesini istiyorum Makro ile nasıl yapabilirim Yardımcı olur musunuz

 

[Korhan Ayhan]

Merhaba,

Sayfa2'nin kod bölümüne aşağıdaki kodu uygulayınız.

Sayfa2'yi tıkladığınızda kod otomatik çalışacaktır.

Option Explicit

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Cells
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
    End With
    Application.ScreenUpdating = True
End Sub

 

[turgayzeynep]

Hocam sayfa yapısını bozdu yazılar açıldı komple bu kodla

Sutunları ayağıya doğru aralıklarını açmasını istiyorum otomatik

Sizden rıcam birde b3 b3 b4 b5 b6 hücreleri boş ise otomatik silinsin makro ile

 

[Korhan Ayhan]

Mesajınızda "satır ve sütun" diye ifade etmişsiniz. Bu sebeple her iki işlevide koda eklemiştim. Sütunların genişlemesini istemiyorsanız aşağıdaki satırı silebilirsiniz.

.EntireColumn.AutoFit

 

[turgayzeynep]

Hocam teşekkür ederim yardımınız için

 

[turgayzeynep]

Merhaba,

Sayfa2'nin kod bölümüne aşağıdaki kodu uygulayınız.

Sayfa2'yi tıkladığınızda kod otomatik çalışacaktır.

Option Explicit

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Cells
        .EntireColumn.AutoFit
        .EntireRow.AutoFit
    End With
    Application.ScreenUpdating = True
End Sub

Hocam yine 2 sayfada tek tek a1 satırı a3 satırı otomatik yükseklik yapma şeklinde makro nasıl yapabiliriz rca etsem yardımcı olurmusunuz

 

[Korhan Ayhan]

Aşağıdaki kod satırlarını deneyiniz.

Option Explicit

Sub Test()
    Rows("1").AutoFit
    Rows("3").AutoFit
End Sub

 

[turgayzeynep]

Hocam yine ana veriden alıyoruz 2 sayfaya 2 sayfadaki 1 ile 3 hücreleri aralarını otomatik yükseltmek için çalışmadı bu kod

 

[Korhan Ayhan]

Otomatik çalışması içinde sayfanın aktif olma durumunu kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Rows("1").AutoFit
    Rows("3").AutoFit
    Application.ScreenUpdating = True
End Sub