SAYFA1
SAYFA2
şeklinde bir excel tablosunda
SAYFA1 teki A stunundaki değerler içinden
SAYFA2 A1 de yazan kelimeleri B1 de yazan ile değiştirecek
ve bunu A2 A3 A4... Ax e kadar(x= en son dolu a hücresi) tekrarlayacak bir makro yazmaya çalıştım fakat başarılı olamadım.
yardımcı olabilirmisiniz acaba google aramalarım sonuçsuz kaldı.
en fazla şunu bulabildim ama uyarlayamadım.
Range("A1:A5000").Replace [A1], [B1]
makro kaydından üretilen makroda
Cells.Replace What:="masa", Replacement:="sehba", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
what:= "sheet2.range("a1").value" ve replacement:= "sheet2.range("b1").value"
gibi değişken atayarak yapmam gerekiyor sanırım ama yapamadım.
Kod:
l A l
_________________________________________
1 l masa lambası l
_________________________________________
2 l masanın rengi l
_________________________________________
3 l masaya uygun örtü l
_________________________________________
4 l sandalye masayla beraber l
_________________________________________
5 l masa lambası 1 l
_________________________________________
6 l kalorifer peteği l
_________________________________________
SAYFA2
Kod:
l A l B l
________________________________________
1 l masa l sehba l
________________________________________
2 l masaya l sehbaya l
________________________________________
3 l masanın l sehbanın l
________________________________________
şeklinde bir excel tablosunda
SAYFA1 teki A stunundaki değerler içinden
SAYFA2 A1 de yazan kelimeleri B1 de yazan ile değiştirecek
ve bunu A2 A3 A4... Ax e kadar(x= en son dolu a hücresi) tekrarlayacak bir makro yazmaya çalıştım fakat başarılı olamadım.
yardımcı olabilirmisiniz acaba google aramalarım sonuçsuz kaldı.
en fazla şunu bulabildim ama uyarlayamadım.
Range("A1:A5000").Replace [A1], [B1]
makro kaydından üretilen makroda
Cells.Replace What:="masa", Replacement:="sehba", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
what:= "sheet2.range("a1").value" ve replacement:= "sheet2.range("b1").value"
gibi değişken atayarak yapmam gerekiyor sanırım ama yapamadım.
Son düzenleme:
