Γεια σας

Θέλω να συμπληρωθούν οι τιμες μιας στηλης (οσες ειναι κενες ) με την τιμή που υπάρχει από επάνω από το κενο κελί.

Και 2ο ερώτημα

Πως γίνεται να μου δωσει την οποια τιμή θέλω αν το κελί ειναι χρωματισμενο πχ IF(I8=KITRINO);1;0)

Ερώτημα 1.

μπορείς με κώδικα vba να συμπληρώσεις κενά κελιά π.χ.

        Dim timi
        For i = 1 To 100
            If Len(Trim(Application.Cells(i, 1).Value)) <> 0 Then
               timi = Application.Cells(i, 1).Value
            Else
               Application.Cells(i, 1).Value = timi
            End If
        Next i

Δες και το συννημένο που στέλνω θα το τρέξεις με ενεργοποίηση μακροεντολών

το 2 ερώτημα συγνώμη δεν το κατάλαβα.

Ευχαριστώ εισαι αψογος όπως πάντα.

Ερωτημα δευτερο 

Εχω μορφοποιησει καποια αποτελεσματα γενικώς και βγαινουν χρωματιστα πχ κοκκινα αν ειναι πανω από 10000, κιτρινα αν ειναι τοπ 6, κλπ. Θελω τωρα σε ενα νεο κελλι να πω εαν το αποτελεσμα ειναι κοκκινο   να μου βλαει στο νεο κελλι το κοκκινο *10% πχ.

Αν το κελλι Ι4 ειναι κιτρινο το το Ι20 να ισουται με Ι4*1/4* Β18

Ευχαριστω πολύ