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

[frekans]

Makro kodu yazmayı bilmiyorum. Fakat ekteki dosyadaki işi yapan bir koda ihtiyacım var !

 

[Kemal Demir]

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

 

[frekans]

Sn. Rakkas isimi cok kolaylasdirdi. Elinize saglik.

 

[Kemal Demir]

Umarım Yardımcı olabilmişimdir. :arkadas:

 

[frekans]

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..

 

[frekans]

Sanirim, Sayin Rakkas forumda degil su an.. Yukarıda yazılan kodu istedigim sekle nasil donusturebilirim acaba?

 

[Levent Menteşoğlu]

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]

 

[frekans]

Sayin Leventm tesekkur ederim..iyi calismalar dilerim.