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

[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