Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
2
Cevap
880
Tıklama
0
Öne Çıkarma
excel de Visual Basic yardımı
S
17 yıl (56 mesaj)
Çavuş
Konu Sahibi

Arkadaşlar selam,

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 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.

Üye Ol Şimdi Değil



R
17 yıl (227 mesaj)
Teğmen

Range("Asayaç").Select

"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


Bu mesaja 1 cevap geldi.
S
17 yıl (56 mesaj)
Çavuş
Konu Sahibi

quote:

Orijinalden alıntı: recaihercai


Range("Asayaç").Select

"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.



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.