Koşullu olarak textbox içeriğini hücrelere yazdırmak

[Daglaroglu]

Merhaba;

Sayfa1 de MT1 isimli bir metin kutusu bulunmakta. makro ile bu metin kutusunun içeriğini sayfa 2 de ve sayfa 3 de ki B sütununa yazdırmak istiyorum. Koşul, satırda A sütunu dolu ise B sütununa yazılması.

Cevaplayacak arkadaşlar, İngilizce ve Türkçe Excel 2003 e göre kod farklılıklarını belirtirseniz çok sevinirim

 

[Levent Menteşoğlu]

A sütununun doluluğunu biraz daha açarmısınız. Yani 65536 satırın tümümün dolu olmasınımı yoksa sadece bir verinin olmasınımı kasdediyorsunuz.

 

[Daglaroglu]

hayır, 65536 satırına kadar kesinlikle gitmemeli. mesela örnekte sayfa2 de 1344. satıra kadar yazılmış olmalı ama sayfa3 te en son 1216. satıra yazılmalı. yani satırın a sütunu dolu ise b ye MT1 içeriğini yaz , A dolu değilse yazma

 

[Levent Menteşoğlu]

hayır, 65536 satırına kadar kesinlikle gitmemeli. mesela örnekte sayfa2 de 1344. satıra kadar yazılmış olmalı ama sayfa3 te en son 1216. satıra yazılmalı. yani satırın a sütunu dolu ise b ye MT1 içeriğini yaz , A dolu değilse yazma

İşte burada yine anlaşılmayan bir durum var. Örneğin sayfa2 de 1344. satıra yazdık, bir sonraki 1345 ten devam edecektir yazdığınızdan bunu anladım. Bu durumda A'nın dolu olma kriterini belirtmeniz gerkiyor. Yani hangi satırdan sonra B sütununa geçilmelidir.

 

[Daglaroglu]

istediğim sonuç tam olarak aşağıda ekteki gibi aslında. şunu belirtmek istiyorum 1344 veya 65536 gibi sabit bir satır sayısı olmayacak. yani (b1:b1344) aralığı bu örnekte çalışacaktır ama sayfa2 ye 35000 satırlık bir veri eklediğimde, sadece 1344. satıra kadar b ye MT1 içeriğini yazacaktır. Bu yüzden A sütununda herhangi bir veri olduğu taktirde B ye MT1 içeriğini yaz koşulunu sağlatmaya çalışıyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
sat1 = WorksheetFunction.CountA(Sheets("sayfa2").[a:a])
sat2 = WorksheetFunction.CountA(Sheets("sayfa3").[a:a])
If sat1 > 0 Then Sheets("sayfa2").Range("b1:b" & sat1) = ActiveSheet.Shapes("MT1").TextFrame.Characters.Text
If sat2 > 0 Then Sheets("sayfa3").Range("b1:b" & sat2) = ActiveSheet.Shapes("MT1").TextFrame.Characters.Text
End Sub

 

[Daglaroglu]

çok teşekkürler, kesinlikle budur ..