Ανανέωση ιστοσελίδας

[xristos]

Φίλοι του φόρουμ Καλημέρα
και ΧΡΟΝΙΑ ΠΟΛΛΑ στον φίλο Σπύρο που με την βοήθειά του
όπως και με την βοήθεια των άλλων φίλων του φόρουμ μας λύνουν τα χέρια.
Το πρόβλημά μου είναι ότι έχω ένα φύλλο στο excel στο οποίο
έρχονται δεδομένα από άλλο φύλλο.
Η διάσταση του κελιού θέλω να είναι 90, αλλά όταν τα δεδομένα
είναι περισσότερα και δεν χωράνε στο κελί, αυτό να μεγαλώνει αυτόματα
και τα υπόλοιπα να μένουν στο 90.
Ο φίλος Τάσος ή Σπύρος ή κάποιος άλλος δεν θυμάμαι
μου είχε δώσει τον παρακάτω τύπο, αλλά δεν μου κάνει αυτό που θέλω
μήπως υπάρχει άλλη λύση ή κάτι δεν κάνω καλά
Σας ευχαριστώ για τον χρόνο σας

Option Explicit

Sub SetRowHeight()
Dim rng As Range, c As Range
Application.ScreenUpdating = False
Set rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
rng.Cells.EntireRow.AutoFit
For Each c In rng
If c.RowHeight < 90 Then c.RowHeight = 90
Next
End Sub

[Spirosgr]

Φίλε Χρίστο
«...μου είχε δώσει τον παρακάτω τύπο...»
Αυτό δεν είναι τύπος αλλά κώδικας.
«...αλλά δεν μου κάνει αυτό που θέλω..»
Αποκλείεται να δόθηκε γι' αυτό που ζητάς τώρα.
Σίγουρα κάτι δεν κάνεις καλά.
Απλή αναδίπλωση κειμένου, χωρίς τίποτ' άλλο είναι αρκετή.

[xristos]

Φίλοι του φόρουμ Καλησπέρα
Σπύρο σε ευχαριστώ για άλλη μια φορά για την απάντησή σου.
Έχεις δίκαιο που λές ότι είναι κώδικας και όχι τύπος
Επίσης μπορεί να μην είχα ζητήσει αυτό που ζητάω τώρα
Αλλά η αναδίπλωση δεν κάνει αυτό που θέλω
γιατί έχω κάνει αναδίπλωση και δεν αυξάνεται
μήπως πρέπει να κάνω κάτι άλλο ή μήπως δεν κάνω κάτι καλά;;;