kopyala-temizleme hk.

[mehmet2285]

C4 deki veriyi G4 hücresine kopyalayıp B7:S422 arasında kalan bölgeyi temizlemek için bir düğme,makro oluşturmam gerek.Yardımınıza ihtiyacım var
tşkler...

 

[Orion1]

Range("C4").Copy Range("G4")
Range("B7:S442").Clear

 

[Orion1]

Bu arada DALYA demişik.10 bininci mesajı aşmışık bile.

 

[mehmet2285]

çok teşekkürler evren hocam, kolay gelsin

 

[Orion1]

çok teşekkürler evren hocam, kolay gelsin

Rica ederim.
İyi çalışmalar.

 

[drejan62]

Range("C4").Copy Range("G4")
Range("B7:S442").Clear

Peki Evren hocam Sayfa1 deki c4 hücresinde bulunan değeri sayfa2 dek g4 hücresine yukardaki kod gibi nasıl kopyalarız?
teşekkürler

 

[Orion1]

Peki Evren hocam Sayfa1 deki c4 hücresinde bulunan değeri sayfa2 dek g4 hücresine yukardaki kod gibi nasıl kopyalarız?
teşekkürler

[B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Range("C4").Copy [B][COLOR="Red"]sheets("Sayfa2").[/COLOR][/B]Range("G4")
[B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Range("B7:S442").Clear

 

[drejan62]

Harikasın Hocam
Teşekkürler

 

[Orion1]

Harikasın Hocam
Teşekkürler

Rica ederim.
O sizin harikalığınız.

 

[drejan62]

Harikasın Hocam
Teşekkürler

Üstat şimdi aklıma geldi kusara bakma
d4 hücresi seçili olsun aktif hücrenin bir gerisindeki yani c4 hücresini böyle seçereksayfa2 deki G4 hücresine kapyalayabilirmiyiz
Sanırım ofset kullanlacak..

 

[Orion1]

Üstat şimdi aklıma geldi kusara bakma
d4 hücresi seçili olsun aktif hücrenin bir gerisindeki yani c4 hücresini böyle seçereksayfa2 deki G4 hücresine kapyalayabilirmiyiz
Sanırım ofset kullanlacak..

Sheets("Sayfa1").Select
ActiveCell.Offset(-1, 0).copy sheets("Sayfa2").range("G4")

 

[mehmet2285]

Kod:
Range("C4").Copy Range("G4")
Range("B7:S442").Clear
__________________


c4 hücresinin içinde formül var
c4 kopyalarken hücreyi degil de içindeki formülün sonucunu g4 hücresine copy
yapacak şekilde yapabilir miyiz..

 

[Skorpiyon]

Sayın mehmet2285,

Aşağıdaki kodu deneyeniz.

Range("C4").Copy
Range("G4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[mehmet2285]

Sayın hocam çok affersiniz başka bir şey daha soracam
şimdi Range("B7:S442").Clear ile silme işlemini gerçekleştiriyorum
ama bir konuda bir sıkıntı var
şöyleki bu kod hücrelerin biçimsel bütün ayarlarını neyi varsa siliyor
benim istedigim sadece içindeki verileri silsin

örnegin çalışma sayfamda belli yerler hariç korumada
bu kod ilk silmede işlemi gerçekleştiriyor
ikinci bir defa kullanmak istesem
bu hücrelerin biçimsel özelliklerini de (koruma, kilitli) sildiği için sorun yaşıyorum
yardımcı olursanız sevinirim.. tşkler..

 

[Orion1]

Range("B7:S442").ClearContents

 

[mehmet2285]

çok tşk ederim hocam