Aktar (Birleştirilmiş Hücrede)

[Yesilyurtlu]

Sub aktar1()
Sheets("BORDRO").Range("L111").Copy
Sheets("ÖDEME EMRİ").Range("O12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Uzmanlarım
O12 hücresi aslında O1212 hücrelerinin birleştirilmişi
Birleştirilmiş hücreye aktarma yapmam için ne yapmalıyım Yardımcı olabilir misiniz?

 

[ynmcan]

Sub aktar1()
Sheets("BORDRO").Range("L111").Copy
Sheets("ÖDEME EMRİ").Range("O12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Uzmanlarım
O12 hücresi aslında O1212 hücrelerinin birleştirilmişi
Birleştirilmiş hücreye aktarma yapmam için ne yapmalıyım Yardımcı olabilir misiniz?

Syn. Yeşilyurtlu ;
Aşağıdaki kod işinize yararmı ?

Sub aktar1()

Sheets("ÖDEME EMRİ").Range("O12") = Sheets("BORDRO").Range("L111")

End Sub

 

[Yesilyurtlu]

Sayın ynmcany
İşe yaradı Teşekkür Ederim
Sağolasın

 

[bunyamin07]

Syn. Yeşilyurtlu ;
Aşağıdaki kod işinize yararmı ?

Sub aktar1()

Sheets("ÖDEME EMRİ").Range("O12") = Sheets("BORDRO").Range("L111")

End Sub

Merhabalar bu kodu butona nasıl yerleştireceğim. Bir hücredeki bilgiyi ötekine tuş ile kopyalamak istiyorum..


Sub aktar1()

Sheets("sayfa1").Range("b4") = Sheets("sayfab").Range("c4")

End Sub

 

[ynmcan]

Merhabalar bu kodu butona nasıl yerleştireceğim. Bir hücredeki bilgiyi ötekine tuş ile kopyalamak istiyorum..


Sub aktar1()

Sheets("sayfa1").Range("b4") = Sheets("sayfab").Range("c4")

End Sub

Syn. Bunyamin07;
Ekteki örnek dosyayı inceleyin.

 

[bunyamin07]

Çok saol

Syn. Bunyamin07;
Ekteki örnek dosyayı inceleyin.

Kardeş ilgin alakan ve Emeğin için Teşekkür ederim..