CommandButton1_Click()

[mhmtfthnl]

Bir excel dosyası hazırladım.Ve bu dosyaya bir buton koydum.Butona bastığım zaman PLC den veri alıyor ve örneğin d3:h3 arasına veriyi yazdırıyorum.Ben butona her basışımda verinin bir satır aşağıya (ilkönce d4:h4) yazmasını istiyorum.Bunu yapan kod nedir acaba teşekkürler.

 

[ocamsul]

Bir excel dosyası hazırladım.Ve bu dosyaya bir buton koydum.Butona bastığım zaman PLC den veri alıyor ve örneğin d3:h3 arasına veriyi yazdırıyorum.Ben butona her basışımda verinin bir satır aşağıya (ilkönce d4:h4) yazmasını istiyorum.Bunu yapan kod nedir acaba teşekkürler.

Sn: mhmtfthnl örneği eklerseniz. bakabiliriz.

 

[mhmtfthnl]

plc den veriyi oku butonuna bastığım zaman verileri her basışımda aşağı doğru sıralayacak

 

[Levent Menteşoğlu]

Kodlarınızı aşağıdaki gibi düzenleyin. Mavi renkli kısımlar ilave edilmiştir.

Private Sub CommandButton2_Click()
[B][COLOR=blue]sat = [a65536].End(3).Row + 1[/COLOR][/B]
Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "2,VW14,WORD,RW", _
Cells([B][COLOR=blue]sat[/COLOR][/B], 1), "")
End Sub

 

[mhmtfthnl]

selamlar

aynı düzenlemeyi aşağıdaki kod için yapabilir misiniz.Asıl istediğim kısım bu.Ama verdiğiniz kodu çalıştıramadım.

Private Sub CommandButton1_Click()

sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW4,WORD,RW", "$D$3")
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW6,WORD,RW", "$E$3")
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW8,WORD,RW", "$F$3")
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,SMB28,BYTE,RW", "$G$3")
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,SMB29,BYTE,RW", "$H$3")

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW4,WORD,RW", "$D$" & [d65536].End(3).Row + 1)
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW6,WORD,RW", "$E$" & [e65536].End(3).Row + 1)
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,VW8,WORD,RW", "$F$" & [f65536].End(3).Row + 1)
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,SMB28,BYTE,RW", "$G$" & [g65536].End(3).Row + 1)
sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCRead", _
"2:0.0.0.0:0000:0000,SMB29,BYTE,RW", "$H$" & [h65536].End(3).Row + 1)
End Sub

 

[mhmtfthnl]

ok.
mükemmel oldu teşekkürler