- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,874
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;
bu kısımda takıldım..,, betonarme isimli sayfamdaki listeye,, dmr_metraj listesinden iki veri aktarmak istiyorum..
dmr_metraj daki veri adresi : B2 ve G34
betonarme deki olması istenen yerin adresi : B2 için H stunu, G34 için L stunu..
h ve L için numara vermedim,, çünkü listede bu değişken durumunda.. yani liste daha önceden başka bilgilerle dolu.. dolu olmayan satıra yazacak...
yardımcı arkadaşa şimdiden teşekkürler...
Kod:
Private Sub tonaj_ekle_Click()
Sheets("betonarme").Visible = True
Sheets("betonarme").Select
Dim Satır As Long, Say As Byte
Satır = Range("G65536").End(3).Row + 1
Cells(Satır, "L") = [G34]
Cells(Satır, "H") = [B2]
Sheets("dmr_metraj").Visible = False
End Sub
bu kısımda takıldım..,, betonarme isimli sayfamdaki listeye,, dmr_metraj listesinden iki veri aktarmak istiyorum..
dmr_metraj daki veri adresi : B2 ve G34
betonarme deki olması istenen yerin adresi : B2 için H stunu, G34 için L stunu..
h ve L için numara vermedim,, çünkü listede bu değişken durumunda.. yani liste daha önceden başka bilgilerle dolu.. dolu olmayan satıra yazacak...
yardımcı arkadaşa şimdiden teşekkürler...
