bir makro hakkında yardım (eğer/kopyala/değer yapıştır)

Katılım
6 Ocak 2006
Mesajlar
41
Makro kodu yazmayı bilmiyorum. Fakat ekteki dosyadaki işi yapan bir koda ihtiyacım var !
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.Frekans Aşagıdaki Kod işinizi Görür.

Sub değerleri_al()
For x = 3 To 6
For y = 6 To 12
'formul olan yerı sarıya boyattırıyorum.
If Cells(y, x).Value = "" Then
Cells(y, x).Interior.ColorIndex = 6
Else
'olmayan yerler ise direkt değerlerini kopyalıyoruz.
Cells(y, x).Copy
Cells(y, x).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If

Next
Next
End Sub
 
Katılım
6 Ocak 2006
Mesajlar
41
makro hakkında bir ek istek

Sn. Rakkas yazdiginiz makro kodu isime cok yaradi; fakat her hucreyi kontrol ettiginden ve benim kontrol degerlerim de fazla oldugundan beni biraz yavaslatiyor. Sadece A sütunundaki hucreleri kontrol edip; eger bu sutunda 0'dan buyuk deger varsa örnegin A5'te 0'dan buyuk deger varsa; A5:Y5'i kopyalayıp degerleri yapistiran bir kod yazmanizi istesem umarim cok sey istemis olmam..Yani her hucreyi degil yanlizca A sütunundaki degerleri kontrol etsin. Burada deger varsa da satırın sonuna kadar kopyalayip degerleri yapistirsin...

Frekans..
 
Katılım
6 Ocak 2006
Mesajlar
41
Sanirim, Sayin Rakkas forumda degil su an.. Yukarıda yazılan kodu istedigim sekle nasil donusturebilirim acaba?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki şekilde deneyin.

[vb:1:151a7a6d95]Sub değerleri_al()
For x = 1 To [a65536].end(3).row
If Cells(x, "a") <> 0 Then
range("a" & x & ":y" & x)= range("a" & x & ":y" & x).value
End If
Next
End Sub
[/vb:1:151a7a6d95]
 
Katılım
6 Ocak 2006
Mesajlar
41
Sayin Leventm tesekkur ederim..iyi calismalar dilerim.
 
Üst