Hücre boyutunun otomatik olarak değişmesi.

[dEdE]

Sayın dede merhabalar.
Siz galiba alternatiflere karşısınız,bunu da öğrenmiş olsa hata mı olur.

Merhaba,
Ben de tam sizin yazdığınızı söylemeye çalışıyordum. Yeni alternatifler bulmak, göstermek için yazmıştım. Makrolu çözümü de öğrenmiş olsa hata mı olur?

Tarafınızdan yanlış anlaşıldığıma üzüldüm. :agla:

 

[mami68]

Sayın dede tekrar merhabalar.
Üzülmenizi istemem.
Ben niye size yanlış anlaşıldım "Benim kulandığım şekil makrosuz,ve daha uygun görüyorum" yazmışım var.Ve bunda kastım her şey için makroya dayanmayalım.

Artı bu forumu takip eden yüzbinlerce kişi var eğer başkaları sizin bizim alternatiflerimizden faydalı olursalar,amacımıza ulaşmışız demek.

Ben üzülmüyorum ,sende üzülme,biz bir aileyiz.

İyi çalışmalar

 

[jonpromiyee]

üstad bunu makroyla yapmak bana çok buyük avantaj sağlıyor. 18 sayfada çalışıyorum. maliyet hesaplayan bir tablo yaptım. 18 sayfa için ayrı ayrı seçip tıklamak hiç işime gelmiyor.

sizin yazdığınız makroyu biraz geliştirip sayfanın büyük bölümüne yaydım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:AA100]) Is Nothing Then Exit Sub
[A1:AA100].EntireColumn.AutoFit
End Sub

ama şöyle bir sorun çıktı. bağlantılı sayfalarda hücreyi genişletemedim.
örneğin sayfa1 deki verileri alıp sayfa2 ye aktarıyor. aktardığı verilerin bir kısmı birbirleriyle çarpılıyor. ama hücre ###### oluyor. sayfa2 de sayfa1 den gelen veriyi el ile yazınca hücre otomatik genişliyor ama sayfa1 den veriyi direk alınca hücre genişlemiyor. acaba bunu nasıl yazabiliriz makroya.

ben uğraştım ama tanımlayamadım. yardımlarınızı bekliyorum.
benim çalışma kitabımda 18 sayfanın birçoğu birbirinden veri alıyor.

 

[ersoyalan]

Merhaba,

Araya giriyorum fakat şunu deniyebilirmisiniz.Tüm sayfaları refresh etmeyi denermisiniz.İşinize yarıyabilir.

Kod:
Private Sub CommandButton1_Click()
ActiveWorkbook.RefreshAll
End Sub


E.ALAN

 

[janveljan]

ama şöyle bir sorun çıktı. bağlantılı sayfalarda hücreyi genişletemedim.
örneğin sayfa1 deki verileri alıp sayfa2 ye aktarıyor. aktardığı verilerin bir kısmı birbirleriyle çarpılıyor. ama hücre ###### oluyor. sayfa2 de sayfa1 den gelen veriyi el ile yazınca hücre otomatik genişliyor ama sayfa1 den veriyi direk alınca hücre genişlemiyor. acaba bunu nasıl yazabiliriz makroya.

ben uğraştım ama tanımlayamadım. yardımlarınızı bekliyorum.
benim çalışma kitabımda 18 sayfanın birçoğu birbirinden veri alıyor.

Bu değişimlerin bütün kitap bünyesinde yapmak için kitabın kod kısmına aşağıdaki kodları ekleyebiliriz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For i = 1 To Sheets.Count
Sheets(i).Cells.EntireRow.AutoFit
Next
End Sub

 

[honeymoon]

Merhaba,
Sizin yöntemi makroya uyarlarsak daha kullanışlı olmaz mı? Hiçbir yeri seçmeye tıklamaya gerek yok.

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.EntireColumn.AutoFit
End Sub

vallahi denedim olmadı....

kopyala yapıştır yaptım ( kod görüntüleyicide çalışmadı)

dosyamı ekledim ( örnek olarak)

yardımcı olursanız sevinirim... ( ayrıca en son gelen bir msg da tüm sayfalar/sheet ler için) bir mesaj vardı onu yaptm yine olmadı...

makro güvenlik seviyesi vs.. diyor. düşüke çektim yine çaışlmadıbende tekrar yüksek kısmına geri getirdim

 

[dEdE]

Merhaba,

Dosyanız ilişiktedir.

 

[honeymoon]

dede bey,

tesekkur ederim.

dosyayi actim ( ben sheet 1 icin yazmistim ama sheet 1 de hucre genislemesi olmadi - macro duzeyini orta ve dusuge getirdim)

tekrardan dosyayi actim- bu sefer direk macrolar etkinlestirilsin mi diye sordu ve etkinlestirdim, bu sefer acildi

kod sayfasinda sol tarafta bulunan yerlerde gezinmeler yaptim en sonunda da buldum.

bu macrolarda yeni oldugum icin, eksikliklerimi mazur gorun lutfen.

iyi oldu , ellerinize saglik