Tüm Forumlar

Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Bu Konuda

Şimdi Ara

excel de Visual Basic yardımı

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://amzn.to/40CnvTY

Baby Einstein Cal's First Melodies Magic Touch Ahşap Piyano Müzikli Baby Oyuncağı, 6 Aylık ve Üzeri : Amazon.com.tr: Oyuncak https://www.amazon.com.tr/dp/B093FBW2QM?ref=ppx_yo2ov_dt_b_fed_asin_title 7 sa. önce paylaşıldı

arnica GH26253 Diamond Tost Makinesi Mor : Amazon.com.tr: Mutfak https://www.amazon.com.tr/dp/B08DRMW14G 4 gün önce paylaşıldı

Solo Tuvalet Kağıdı Bambu Katkılı 16'lı : Amazon.com.tr: Sağlık ve Bakım https://www.amazon.com.tr/dp/B0C4Z66HHK 3 ay önce paylaşıldı

Esbit Majoris Paslanmaz Çelik Yemek Termosu, 280 ml : Amazon.com.tr: Mutfak https://www.amazon.com.tr/dp/B01NAWKKW1 13 sa. önce paylaşıldı

İstanbul Halk Ekmek A.Ş. https://www.ihe.istanbul/Urunlerimiz/Detay/1023 8 sa. önce paylaşıldı

UPTION Kart - TABİİ %100 İade | DonanımHaber Forum https://forum.donanimhaber.com/uption-kart-tamii-100-iade--160641261 5 sa. önce paylaşıldı

Gigabyte AMD Radeon RX 6600 Eagle ?GV-R66EAGLE-8GD 8 GB GDDR6 128 Bit Ekran Kartı Fiyatları ve Özellikleri https://www.n11.com/urun/gigabyte-amd-radeon-rx-6600-eagle-gv-r66eagle-8gd-8-gb-gddr6-128-bit-ekran-karti-2413519?magaza=tebilon 13 sa. önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

3
Cevap

0
Favori

765
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> excel de Visual Basic yardımı | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

sirkan

Çavuş

41 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

06 Aralık 2009 19:18:13 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

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

recaihercai

Teğmen

209 Mesaj

"teğmen": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Aralık 2009 00:20:57

Mesaj Linkini Kopyala
Şikayet

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

sirkan

Çavuş

41 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

07 Aralık 2009 00:52:14 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

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.