Otomatik yapıştırma

[BlueRay]

Merhabalar,
Benim yapmak istediğim, verileri sırasıyla yapıştırmak mesela sabit hücrelerdeki verileri kopyalayacak sonra sabit bir hücredeki tarihe bakıcak sonra benim veri yapıştırmak istediğim tab'a gidip orada aynı tarihli hücrenin yanına paste/special value/transpose yapacak sonra bu macroyu butona atayacağım böyle birşey mümkünmü?

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyip yapmak istediğiniz işlemi açıklarsanız olup olamayacağı konusundaki fikrimizi söyleyebiliriz.

 

[BlueRay]

Teşekkür ederim, dosyayı ekledim

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub KopyalaYapistir()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
With s2.Range("a:a")
    Set c = .Find(s1.[A1], LookIn:=xlValues)
    If Not c Is Nothing Then
        s1.Range("B3:B25").Copy
        s2.Range("B" & c.Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    Else
        MsgBox "Tarihi Bulamadım....."
    End If
End With
Application.CutCopyMode = False
End Sub

 

[BlueRay]

Çok süper çalışıyor ancak şöyle bir sorun var bende B3-B25 arasında vlookup formulu var doğal olarak diğer tarafada formulu kopyalıyor, sadece değeri kopyalamasını nasıl yaparız? (paste-special-value)

Çok teşekkür ederim

 

[SER973]

PasteAll yerine PasteValues

sn. BlueRay

s2.Range("B" & c.Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Kodda Yukarıdaki Satırıdaki PasteAll silip Yerine PasteValues yazarsanız sorun çözülmüş olur...

Sn Necdet Bey Affınıza sığınarak cevabı vermdim. Yanlış bir bilgi verdiysem Lütfen Düzeltiniz...

 

[Necdet]

Rica ederim. Teşekkür ederim yardım ettiğiniz için. Bende tam olması gerekeni yazayım. Ekrandaki hareketi de engelleyen kodları koyalım.

Sub KopyalaYapistir()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
[B][COLOR=red]Application.ScreenUpdating = False[/COLOR]
[/B]With s2.Range("a:a")
    Set c = .Find(s1.[A1], LookIn:=xlValues)
    If Not c Is Nothing Then
        s1.Range("B3:B25").Copy
        s2.Range("B" & c.Row).PasteSpecial Paste:=[B]xlPasteValues[/B], Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    Else
        MsgBox "Tarihi Bulamadım....."
    End If
End With
Application.CutCopyMode = False
[COLOR=red][B]Application.ScreenUpdating = True[/B]
[/COLOR]End Sub

 

[BlueRay]

Çok teşekkür ederim sağolun varolun, yüreğinize sağlık...

 

[BlueRay]

Peki diyelim yapıştırmak istediğim hücreler boş değil excel bana "hücre boş değil yinede yapıştırmak istiyormusunuz evet-hayır " butonu çıksa evete bastığımda yapıştırsa hayır tıkladığımda işlemi iptal etse...böyle birşey mümkünmü? Çok teşekkür ederim