Otomatik değiştir.

[Özgür DALDABAN]

Arkadaşlar Merhaba

Kısa bir makroya ihtiyacım var.
Butona bastığımda;

A1:F11 hücre aralığını seç.
Seçilen aralığı kopyala
A sütunundaki en son boş hücreye git ve yapıştır.
Yapıştırdıktan sonra Formül içindeki "2" değerini "G1" hücresindeki değer ile değiştir.

Teşekkürler..

 

[Orion1]

Buyurun.

Sub yapistir59()
Dim sonsat As Long, ilksat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A1:F11").Copy
Range("A" & sonsat).PasteSpecial
Application.CutCopyMode = False
ilksat = sonsat
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & ilksat & ":F" & sonsat).Replace what:=2, replacement:=Range("G1").Value
[B][COLOR="Red"]range("B1").value = range("B1").value + 1[/COLOR][/B]
End Sub

 

[Özgür DALDABAN]

İlginize teşekkür ederim

Kodu aldım ama değiştir işlemini yapmadı..
Yapıştırdığı hücre aralığındaki 2 yazan değerlerin tamamını G1 hücresindeki değer ile değiştirmesi gerekiyor..

 

[Orion1]

İlginize teşekkür ederim

Kodu aldım ama değiştir işlemini yapmadı..
Yapıştırdığı hücre aralığındaki 2 yazan değerlerin tamamını G1 hücresindeki değer ile değiştirmesi gerekiyor..

kodları düzelttim.2 nolu mesajdan alabilirsiniz.

 

[Özgür DALDABAN]

Çok teşekkür ederim By "Orion 1" kod işe yaradı.

En sona 1 işlem daha ekleyebilir miyiz?
"İşlemi bitirdikten sonra G1 hücresindeki değerin 1 fazlasını yaz."

 

[Orion1]

Çok teşekkür ederim By "Orion 1" kod işe yaradı.

En sona 1 işlem daha ekleyebilir miyiz?
"İşlemi bitirdikten sonra G1 hücresindeki değerin 1 fazlasını yaz."

Gerekli kodu ekledim.
2 noluj mesajdan alabilirsiniz.