Makro ile bul ve yaz gibi birşey

Katılım
31 Ocak 2006
Mesajlar
145
Excel Vers. ve Dili
Office 2010(64 bit) - Türkçe
sorununuzu süz komutu ile gideremez misiniz?
 
Katılım
21 Şubat 2006
Mesajlar
11
yardımınız için teşekkürr ederim, ama malesef süz komutu yeterli olmuyor, bu konuda yardım edecek kimse yokmu aceba?
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
makro olmak zorundamı
düşeyara kullanabilirsin cpu sayfasında a19 a
WINFAST K7S741GXMG-6L SC-A V+S+L yaz c19 a aşağıdaki formülü yaz
=DÜŞEYARA(A19;Sayfa1!$C$2:$K$1067;4;0)
 

mnz

Katılım
5 Eylül 2005
Mesajlar
282
Excel Vers. ve Dili
Excel 2002 (Tr)
umarım işinizi görür. geliştirmek size kalmış

Sub bulyaz()
z = 20
For i = 1 To 5000
mnz = Sheets("Sayfa1").Cells(i, 1)
If mnz = 23 Or mnz = 24 Then
Sheets("CPU").Cells(z + 1, 1) = mnz
Sheets("CPU").Cells(z + 1, 2) = Sheets("Sayfa1").Cells(i, 2)
z = z + 1
End If
Next
End Sub
 
Katılım
21 Şubat 2006
Mesajlar
11
Sn. mnz,
çok teşekkürler tam istediğim gibi, makrodan hiç anlamasamda değişiklikleri kolayca yapabildim çok teşekkürler emeğinize sağlık.
 
Üst