visul basicte yaklaşık 200 tane kopyala/yapıştır yapmak zorundayım. işin kötü tarafı kopyaladığım yer tek hücre yapıştırdığım yer ise birleştirilmiş hücre olduğundan aynı anda yapıştıramıyorum. ben de bu soruna karşılık taa eski zamanlardan kalma bilgilerimle ve biraz araştırmayla bu sorunu makroyu düzenleyerek yapmaya karar verdim. ama sorun şu ki a1 hücresini kopyala derken tamam, sayacı da ekledim ama burdaki 1 integer ını her seferinde bir artırıp tanıtamıyorum. o satıra geldiğinde hata veriyor. bu tanıtma-arttırma işini nasıl yaparım? Yani ilk döngüde A1 de, ikinci de A2 de ... işlem yapmalıyım. beceremedim bir türlü
Sub Makro2() ' ' Makro2 Makro ' 222 '
' Dim sayaç As Integer Dim bayaç As Integer Dim cayaç As Integer
"A" değeri ile sayaç değişkenini bu şekilde birleştiremezsin. biri değer diğeri değişken. aşağıdaki şekilde kullanmalısın.
Range("A" & sayac).Select ve Range("A" & bayac, "A" & cayac).Select
hayatımda ilk deneyişimde hiç bir zaman çalışan bir program yapmayı becerememiştim. Ama walla bravo ilk deneme de çalıştı. çok teşekkür ederim, eline sağlık.
visul basicte yaklaşık 200 tane kopyala/yapıştır yapmak zorundayım. işin kötü tarafı kopyaladığım yer tek hücre yapıştırdığım yer ise birleştirilmiş hücre olduğundan aynı anda yapıştıramıyorum. ben de bu soruna karşılık taa eski zamanlardan kalma bilgilerimle ve biraz araştırmayla bu sorunu makroyu düzenleyerek yapmaya karar verdim. ama sorun şu ki a1 hücresini kopyala derken tamam, sayacı da ekledim ama burdaki 1 integer ını her seferinde bir artırıp tanıtamıyorum. o satıra geldiğinde hata veriyor. bu tanıtma-arttırma işini nasıl yaparım? Yani ilk döngüde A1 de, ikinci de A2 de ... işlem yapmalıyım. beceremedim bir türlü
Sub Makro2()
'
' Makro2 Makro
' 222
'
'
Dim sayaç As Integer
Dim bayaç As Integer
Dim cayaç As Integer
sayaç = 1
bayaç = 3
cayaç = 8
While sayaç < 220
sayaç = sayaç + 1
bayaç = bayaç + 6
cayaç = cayaç + 6
Sheets("i verbi").Select
Range("Asayaç").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tüm çekimler").Select
Range("Abayaç:Acayaç").Select
ActiveSheet.Paste
Wend
End Sub
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.