Post cyntaf, dwi'n caru'r hyn rydych chi i gyd yn ei wneud yma. Gan ddefnyddio rhywfaint o bŵer google difrifol rydw i wedi darganfod cod VBA i wneud dau beth y mae angen i mi eu cyflawni.

1. Mae gennyf 3 rhestr dilysu data ar un tab, ac rwyf am i'r rhestrau rhagosod i TOP y rhestr yn hytrach na'r gwaelod; Deuthum o hyd i'r cod anhygoel hwn ac mae'n GWEITHIO.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFformiwla Fel Llinynnol
Ar Gwall Ewch i Allan:
xFformiwla = Targed.Celloedd(1).Dilysiad.Fformiwla1
Os Chwith(xFormula, 1) = "=" Yna
Targed.Cells(1) = Amrediad(Canol(xFformiwla, 1)).Celloedd(1).Gwerth
Gorffennwch Os
Out:
Is-End

2. Pan fyddaf yn newid y rhestr ddilysu data gyntaf, rwyf am i'r 2 gell arall glirio a mynd yn wag, yn yr achos hwn B74 a B145. Deuthum o hyd i nifer o wefannau sy'n brolio'r un cod neu god tebyg iawn, ond nid oes unrhyw amrywiad unigol y gallaf ddod o hyd iddo (yn llythrennol tudalennau o ddolenni google) yn gweithio. Dyma'r rhan nad yw'n gweithio i mi, a chredaf y gallai fod ganddo rywbeth i'w wneud â'r cod uchod.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Target.Address(0, 0) = "B3" Yna
Ystod ("B74,B145").Cynnwys Clir
Gorffennwch Os
Is-End

Diolch i chi ymlaen llaw!